anchor.diff:  				      :test #'string=) invoice)))
   
   (defun filter-multi-pic (images invoice)
  -  (let ((itemlist (mito:retrieve-dao 'multi-pic :item (find-item-db :invoice (mito:find-dao 'invoice-db  :set-name (db-set-name invoice))))))
  +  (if (invoice-item-list invoice)
  +      (let ((itemlist (mito:retrieve-dao 'multi-pic :set (db-set-name invoice)
  +					 :show (db-show-name (invoice-show invoice)))))
  + 
       (set-difference images (mapcar #'(lambda (x)
   				       (multi-picture x))
   				   itemlist)
  -		    :test #'string=)))
  +		    :test #'string=))
  +  images))
  +
   ;;;Helper function for grabbing image location
   (defun itemlist-image-location (invoice)
     (mapcar #'(lambda (x)
  
positive.code: 				      (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/")
  
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 ()
  