anchor.diff:  			      :contact (fmt "Contact: ~A" (escape-string contact))
   			      :pic-num (fmt "~A" (escape-string (count-pics-from-invoice (concatenate 'string showname
      									      "-" setname)))))
  -    (standard-item-writeup :image (first images))
  +    (standard-item-writeup :image (first images-filtered))
       (standard-picture-upload)
  -    (standard-picture-table :image-list (rest images)))))
  +    (standard-item-list-table :invoice invoice)
  +    (standard-picture-table :image-list (rest images-filtered)))))
   
   ;;;Remove the absolute pathname and limit it to the show-bank directory
   ;;;Probably needs to be reworked entirely
  
positive.code: 		       :set-name set-name
  		       :show-name show-name
  		       :contact-name contact-name
  		       :root-dir root-dir) *global-invoice-list*))
  
  ;;; Webserver functions and scaffolding
  
negative.code: 			 :pictures image)
  	  (invoice-item-list invoice)))
    (redirect "/setthemcookies"))
  
  (define-easy-handler (remove-item :uri "/removeitem") ()
    (let* ((invoice (find-invoice-from-cookie (cookie-in "current-invoice")))
  	 (item (hunchentoot:post-parameter "item"))
  	 (item-price (hunchentoot:post-parameter "item-price"))
  	 (item-quantity (hunchentoot:post-parameter "item-quantity")))
          (setf (invoice-item-list invoice) (remove-if #'(lambda (x)
  							 (and (string= (item-description x) item)
  							      (string= (item-price x) item-price)
  							      (string= (item-quantity x) item-quantity)))
  						        
  						     (invoice-item-list invoice))))
    (redirect "/setthemcookies"))
  
  (defun filter-already-in-itemlist (images invoice)
    (let ((itemlist (itemlist-image-location invoice)))
      (set-difference images itemlist
  		    :test #'string=)))
  
  (defun itemlist-image-location (invoice)
    (mapcar #'(lambda (x)
  	      (item-picture x))
  	  (invoice-item-list invoice)))
  
  ;;;Need to rewrite so defintions are in the URL for reloading to work
  (define-easy-handler (setthemcookies :uri "/setthemcookies") ()
    (let* ((invoice (find-invoice-from-cookie (cookie-in "current-invoice")))
  	 (showname (show-name invoice))
  	 (setname (invoice-set-name invoice))
  	 (contact (invoice-contact-name invoice))
  	 (images (prepare-for-table (cl-fad:list-directory (invoice-root-dir invoice))))
  	 (images-filtered (filter-already-in-itemlist images invoice)))
      
    (standard-page (:title "Order Writeup")
     
  