anchor.diff:  						  :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"))
  -			       
  +					  (: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"
  -					   "Hello World" (:i :class "material-icons right" "close"))))))))))
  +					   "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")))
           
  
positive.code:   price quantity description invoices-on picture shows-on returned-on)
    
  (defun save-data ()
    (let* ((saved-list (mapcar #'lambda (x)
  			     (mapcar #'lambda (y)
  				     (conspack:encode-object (invoice-item-list y)))
  			     *GLOBAL-INVOICE-LIST*)))
          
      (with-open-file (out "caps.db"
  			 :direction :output
  
negative.code:    (shows-on :initarg :shows-on
  	     :accessor item-shows-on
  	     :initform '())
     (returned-qty :initarg :returned-qty
  		 :accessor item-returned-qty)
     (notes :initarg :notes
  	  :accessor item-notes)
     (returned-on :initarg :returned-on
  		:accessor item-returned-on)))
  
  