anchor.diff:  			       :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"
  
positive.code: 
  (define-easy-handler (profilelogin :uri "/profilelogin") ()
    (redirect "/login"))
  (define-easy-handler (home :uri "/") ()
    (standard-page (:title "RILEY Inventory System")
      (redirect "/login")))
  
negative.code: 		      (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") ()
    (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 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)))))
      (standard-item-writeup :image (first images))
      (standard-picture-upload)
      (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
  