anchor.diff:    (standard-page (:title "Check in list")
       (standard-check-in-showlist)))
   
  +(define-easy-handler (checkinset :uri "/check-in-set") ()
  +  (let* ((showname (hunchentoot:post-parameter "showname"))
  +	 (setname (hunchentoot:post-parameter "setname")))
  +    (set-cookie "current-invoice" :value (concatenate 'string showname "-" setname))
  +    (let* ((invoice (find-invoice-from-cookie (cookie-in "current-invoice"))))
  +      (standard-page (:title (concatenate 'string "Check in: " showname "-" setname))
  +	(standard-navbar)
  +	(standard-check-in :invoice invoice)))))
  +        
   (define-easy-handler (createpdf :uri "/createpdf") ()
     (let* ((invoice (find-invoice-from-cookie (cookie-in "current-invoice")))
   	 (root-dir (invoice-root-dir invoice)))
  
positive.code: 			     (:input :type "hidden" :value ,invoice
  				     :name "invoice" :id "invoice")
  			     (:button :type "submit" :class "btn btn-default btn-sm btn-danger" "Remove")))))))))))
  			     
  (defmacro standard-picture-upload ()
    `(with-html-output (*standard-output* nil :indent t)
       (:div :class "panel panel-default"
  
negative.code: 				    :id "item-table"
  				    (:input :type "hidden" :value (invoice-set-name invoice)
  					    :name "setname" :id "setname")
  				    (:input :type "hidden" :value (show-name invoice)
  					    :name "showname" :id "showname")
  				    (:button :type "submit" :class "btn btn-default btn-sm btn-info"
  					     "Check In")))))))))))
  (defmacro standard-item-list-table (&key invoice)
  