anchor.diff:  		  (:input :type "text" :class "form-control" :id "inputContact"
   			  :placeholder "Contact Name" :name "inputContact"))
   	    (:button :type "submit" :class "btn btn-default" "Write Show Order"))))))
  +
   (defmacro standard-picture-table (&key image-list)
     `(with-html-output (*standard-output* nil :indent t)
  -     (:div :class "container"
  +     (:div :class "container panel panel-default"
   	   (:div :class "row"
   		    (dolist (image ,image-list)
  -		      
   		      (htm (:div :class "col-md-3 col-sm-4 col-xs-6"
   				    (:img :src image :class "img-responsive"))))))))
  -				
  -			      
  +						      
   (defmacro standard-picture-upload ()
     `(with-html-output (*standard-output* nil :indent t)
        (:div :class "panel panel-default"
  
positive.code: 		      (make-pathname :directory invoice-location
  				     :name image-name))))
  
  ;;;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)))))
      (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")))
  			      :pic-num (fmt "~A" (escape-string (count-pics-from-invoice (concatenate 'string showname
  												      "-" setname)))))
      (standard-picture-upload)
      (standard-picture-table :image-list (prepare-for-table (cl-fad:list-directory (invoice-root-dir invoice)))))))
  
  ;;;Remove the absolute pathname and limit it to the show-bank directory
  ;;;Probably needs to be reworked entirely
  
negative.code: 	   (if (find-invoice-from-message messages)
  	       (htm
  		(:div :class "media-right"
  		      (:form :action "/pre-set-cookies"
  			     :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-item-writeup (&key image)
    `(with-html-output (*standard-output* nil :indent t)
       (:div :class "panel panel-default"
  	   (:div :class "panel-body"
  		 (:div :class "col-md-3 col-sm-4 col-xs-6"
  				    (:img :src ,image :class "img-responsive"))
  		 (:form :class "form-inline"
  			:action "/additem"
  			:method "POST"
  			:id "New-item"
  			(:div :class "form-group"
  			      (:br)
  			      (:label :for "inputDesc" "Description")
  			      (:input :type "text" :class "form-control"
  				      :id "input-item-description" :placeholder "Item Description"
  				      :name "input-item-description" :autofocus "autofocus")
  			      (:br)
  			      (:label :for "inputPrice" "Price")
  			      (:input :type "text" :class "form-control"
  				      :id "input-item-price" :placeholder "Item Price"
  				      :name "input-item-price")
  			      (:br)
  			      (:label :for "inputQty" "Quantity")
  			      (:input :type "text" :class "form-control"
  				      :id "input-item-qty" :placeholder "Item Quantity"
  				      :name "input-item-qty"))
  			(:input :type "hidden" :id "image-data" :name "image-data" :value ,image)
  			(:br)
  			(:button :type "submit" :class "btn btn-default" "Add item"))))))
  			      
  				      
  (defmacro standard-order-intro ()
    `(with-html-output (*standard-output* nil :indent t)
       (:div :class "panel panel-default"
  