anchor.diff:  						     (invoice-item-list invoice))))
     (redirect "/setthemcookies")))
   
  +(define-easy-handler (partial-check-in :uri "/partial-check-in") (qty desc price)
  +  (let* ((rtn (hunchentoot:post-parameter "ranged"))
  +	 (invoice (find-invoice-from-cookie (cookie-in "current-invoice")))
  +	 (item-r (first (remove-if-not #'(lambda (x)
  +				(and (string= desc (item-description x))
  +				     (string= price (item-price x))
  +				     (string= qty (item-quantity x)))) (invoice-item-list invoice)))))
  +    
  +				
  +    (setf (item-returned-qty item-r) (+ (item-returned-qty item-r) rtn))))
   ;;;Standard check in page that displays a table of shows with invoices
   (define-easy-handler (checkinlist :uri "/checkinlist") ()
     (standard-page (:title "Check in list")
  
positive.code:    (shows-on :initarg :shows-on
  	     :accessor item-shows-on
  	     :initform '())
     (returned-on :initarg :returned-on
  		:accessor item-returned-on)))
  
  
negative.code: 						  :value (item-description item))
  					  (:input :type "hidden" :name "item-qty" :id "item-qty"
  						  :value (item-quantity item))
  					  (:button :type "submit" :class "red darken-4 btn-floating waves-effect waves-light" (:i :class "material-icons" "check_circle"))			        
  			       (:a :class "right red darken-4 btn-floating activator" (:i :class "material-icons" "arrow_upward"))))
  			   
  			      (:div :class "card-reveal"
  				    (:span :class "card-title grey-text text-darken-4"
  					   "Check in specific qty" (:i :class "material-icons right" "close"))
  				    (:form :action (concatenate 'string "/partial-check-in?qty=" (item-quantity item) "&desc=" (item-description item) "&price=" (item-price item))
  					   :method "POST"
  					   (:p :class "range-field"
  					       (:input :id "ranged" :name "ranged" :type "range" :min "0" :max (item-quantity item) :oninput "this.form.rangedName.value=this.value"))
  					       (:input :class "left" :type "number" :name "rangedName" :min "0" :max (item-quantity item) :value (item-quantity item) :oninput "this.form.ranged.value=this.value")
  					       
  					   (:button :type "submit"  :class "right red darken-4 btn-floating" (:i :class "material-icons" "arrow_downward")))))))))))
       
  			  (:script :src "plugins/search.js")))
          
  