anchor.diff:  		       (:input :type "password"
   			       :class "form-control"
   			       :name "password"
  -			       :id "password")
  +			       :id "password"
  +			       :required "required")
   		       (:label :class "white-text" :for "password" "Password"))
   	        (:div :class "center"
   	         (:button :type "submit"
  
positive.code: 		 (:input :type "text"
  			 :class "form-control"
  			 :name "username"
  			 :id "username")
  		 (:label :class "white-text" :for "username" "Username"))
  
  		 (:div :class "input-field col s6"
  		 (:input :type "password"
  			 :name "password"
  			 :class "form-control"
  			 :id "password")
  		 (:label :class "white-text" :for "password" "Password"))
  
  		 (:div :class "input-field col s6"
  		 (:input :type "password"
  			 :class "form-control"
  			 :name "password-repeat"
  			 :id "password-repeat")
  		 (:label :class "white-text" :for "password-repeat" "Repeat"))
  	        
  		 (:div :class "center"
  
negative.code: (defmacro standard-check-in (&key invoice)
    `(with-html-output (*standard-output* nil :indent t)
       (:div :class "row"
  	   (:div :class "input-field col s12 l4 m4"
  		 (:label :for "myInput" :class "black-text" "Search")
  	   (:input :type "text" :id "myInput" :class "black-text" :onkeyup "myFunction()"))
  	   (:ul :id "myUL"
  			  (dolist (item (remove-returned (invoice-item-list ,invoice)))
  			    (htm
  			     (:li
  			     (:div :class "col s12 m4 l4"
  				   (:div :class "card blue-grey"
  					 (:div :class "card-image"
  					       (:img :src (item-picture item) :class "materialboxed responsive-img")
  					       (:span :class "card-title truncate"
  					    :style "font-size:20px; text-shadow:-1px 0 black, 0 1px black, 1px 0 black, 0 -1px black;" ;;;Set correct fontsize and give a blackoutline to help readability
  					    (fmt "~A" (escape-string (item-description item)))))
  					       
  					 (:div :class "card-content"
  					      (:span 
  			    	       (:i :class "material-icons" "attach_money") (fmt "~A &emsp;" (escape-string (item-price item)))
  				       (:i :class "material-icons" "all_inclusive") (fmt " ~A &emsp;" (escape-string (item-quantity item)))))
  				        				        
  			      (:div :class "card-action"
  			       (:form 
  					  :action "/check-in-item"
  