anchor.diff:      (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))))
  -
  +			      :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
  +(defun prepare-for-table (fad-list)
  +  (mapcar #'(lambda (x)
  +	    (let ((string-path-image (namestring x)))
  +	      (subseq (namestring string-path-image) 70)))
  +	  fad-list))
  +
  +;;;Expects an invoice with the string showname-setname
  +(defun count-pics-from-invoice (inv)
  +  (if (string= "none" inv)
  +	"0"
  +	(let* ((invoice (find-invoice-from-cookie inv))
  +	       (invoice-pathname (invoice-root-dir invoice)))
  +	  (concatenate 'string "There are " (write-to-string (length (cl-fad:list-directory invoice-pathname)))
  +		       " pictures on this order"))))
  +  
   (define-easy-handler (signout :uri "/signout") ()
     (set-cookie "current-user" :value "login")
     (redirect "/login"))
  
positive.code: 		  (: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-upload ()
    `(with-html-output (*standard-output* nil :indent t)
       (:div :class "panel panel-default"
  
negative.code: 			       :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"
  	   (:div :class "panel-body"
  		 (:ul :class "list-group"
  		      (:li :class "list-group-item list-group-item-success" ,show)
  		      (:li :class "list-group-item list-group-item-danger" ,set)
  		      (:li :class "list-group-item list-group-item-success" ,contact)
  		      (:li :class "list-group-item list-group-item-danger" ,pic-num))))))
  
  ;;;Define page handler functions
  
  