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 "table-container"
  +		    (dolist (image ,image-list)
  +		      
  +		      (htm (:div :class "table-cell-container center"
  +				    (: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:     (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-picture-upload))))
  
  (define-easy-handler (signout :uri "/signout") ()
    (set-cookie "current-user" :value "login")
    (redirect "/login"))
  
negative.code: 			(fourth x))
  		(rename-file (second x)
  			     (concatenate 'string "/tmp/"
  					  (third x)))
  		(move-image-to-invoice-dir x))
  		     
  	    whatever))))
  
  (defun find-invoice-from-cookie (invoice-string)
    (if (not (string= "none" invoice-string))
    (let* ((magic-number (search "-" invoice-string))
  	 (showname (subseq invoice-string 0 magic-number))
  	 (setname (subseq invoice-string (+ magic-number 1)))
  	 (temp-invoice (make-instance 'invoice :show-name showname
  				      :set-name setname)))
      (find-invoice-from-invoice temp-invoice))))
      
  (defun move-image-to-invoice-dir (img-data)
    (let* ((current-invoice (find-invoice-from-cookie (cookie-in "current-invoice")))
  	 (invoice-location (invoice-root-dir current-invoice))
  	 (temp-image-directory "/tmp/")
  	 (image-name (third img-data)))
      (cl-fad:copy-file (make-pathname :directory temp-image-directory
  				     :name image-name)
  		      (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
  