anchor.diff:  		      (make-pathname :directory invoice-location
   				     :name image-name))))
   
  +(define-easy-handler (pre-set-cookies :uri "/pre-set-cookies") ()
  +  (set-cookie "current-invoice" :value (concatenate 'string (hunchentoot:post-parameter "showname")
  +						    "-"
  +						    (hunchentoot:post-parameter "setname")))
  +  (redirect "/setthemcookies"))
  +
  +(define-easy-handler (add-item :uri "/additem") ()
  +  (let* ((invoice (find-invoice-from-cookie (cookie-in "current-invoice")))
  +	 (description (hunchentoot:post-parameter "input-item-description"))
  +	 (price (hunchentoot:post-parameter "input-item-price"))
  +	 (qty (hunchentoot:post-parameter "input-item-qty"))
  +	 (image (hunchentoot:post-parameter "image-data")))
  +    (push (make-instance 'item :description description
  +			 :quantity qty
  +			 :price price
  +			 :pictures image)
  +	  (invoice-item-list invoice)))
  +  (redirect "/setthemcookies"))
  +	 
   ;;;Need to rewrite so defintions are in the URL for reloading to work
   (define-easy-handler (setthemcookies :uri "/setthemcookies") ()
  -  (set-cookie "current-invoice" :value (concatenate 'string (hunchentoot:post-parameter "showname")
  -						    "-" (hunchentoot:post-parameter "setname")))
  -  (standard-page (:title (concatenate 'string (hunchentoot:post-parameter "showname")
  -				      " - " (hunchentoot:post-parameter "setname")))
  -    (let* ((showname (escape-string (hunchentoot:post-parameter "showname")))
  -	  (setname (escape-string (hunchentoot:post-parameter "setname")))
  -	  (invoice (find-invoice-from-message (make-instance 'message
  -							      :invoice-name (list setname showname)))))
  +  (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)))))
  +    
  +  (standard-page (:title "Order Writeup")
  +   
       (standard-navbar)
  -    (standard-invoice-writing :show  (fmt "Showname: ~A" (escape-string (hunchentoot:post-parameter "showname")))
  -			      :set (fmt "Setname: ~A" (escape-string (hunchentoot:post-parameter "setname")))
  -			      :contact (fmt "Contact: ~A" (escape-string (hunchentoot:post-parameter "contact")))
  +    (standard-invoice-writing :show  (fmt "Showname: ~A" (escape-string showname))
  +			      :set (fmt "Setname: ~A" (escape-string setname))
  +			      :contact (fmt "Contact: ~A" (escape-string contact))
   			      :pic-num (fmt "~A" (escape-string (count-pics-from-invoice (concatenate 'string showname
  -												      "-" setname)))))
  +   									      "-" setname)))))
  +    (standard-item-writeup :image (first images))
       (standard-picture-upload)
  -    (standard-picture-table :image-list (prepare-for-table (cl-fad:list-directory (invoice-root-dir invoice)))))))
  +    (standard-picture-table :image-list (rest images)))))
   
   ;;;Remove the absolute pathname and limit it to the show-bank directory
   ;;;Probably needs to be reworked entirely
  
positive.code: 	   (if (find-invoice-from-message messages)
  	       (htm
  		(:div :class "media-right"
  		      (:form :action "/setthemcookies"
  			     :method "POST"
  			     (:input :type "hidden" :name "showname" :value (show-name (find-invoice-from-message messages)))
  			     (:input :type "hidden" :name "setname" :value (invoice-set-name (find-invoice-from-message messages)))
  			     (:input :type "hidden" :name "contact" :value (invoice-contact-name (find-invoice-from-message messages)))
  		 (:button :type "submit" :class "btn btn-default" "Write Order"))))))))))
  
  (defmacro standard-order-intro ()
    `(with-html-output (*standard-output* nil :indent t)
       (:div :class "panel panel-default"
  
negative.code: 			       :name "picture-batch"
  			       :type "file"
  			       :name "img")
  			      (:input :type "submit")))))))
  
  (defmacro standard-invoice-writing (&key show set contact pic-num)
    `(with-html-output (*standard-output* nil :indent t)
       (:div :class "panel panel-default"
  