anchor.diff:  				      (db-show-name (invoice-show  current-invoice))
   				      "-"
   				      image-name
  -				      ".jpg")))      
  +				      )))      
         (cl-fad:copy-file (make-pathname :directory temp-image-directory
   				       :name image-name)
   			(make-pathname :directory (concatenate 'string invoice-location "webimg/")
  
positive.code:   (let* ((invoice (find-invoice-from-cookie (cookie-in "current-invoice")))
  	 (item-r (find-item-db :price price :quantity qty :description desc :invoice (mito:find-dao 'invoice-db
  												    :show (mito:find-dao 'show-db :name (db-show-name (invoice-show invoice)))
  												    :set-name (db-set-name invoice)))))
      (mito:create-dao 'multi-pic
  		     :item-db item-r
  		     :picture pic)))
  
  (define-easy-handler (partial-check-in :uri "/partial-check-in") (qty desc price)
    (let* ((rtn (escape-string (hunchentoot:post-parameter "ranged")))
  
negative.code: 	 :accessor db-multi-item)
     (picture :initarg :picture
  	    :accessor multi-picture
  	    :col-type :text)
     (show :initarg :show
  	 :accessor multi-show
  	 :col-type :text)
     (set :initarg :set
  	:accessor multi-set
  	:col-type :text))
    (:metaclass mito:dao-table-class))
  
  (defclass user-db ()
  