anchor.diff:  				      :name "input-item-qty"))
   			(:input :type "hidden" :id "image-data" :name "image-data" :value ,image)
   	        
  -			(:button :type "submit" :class "btn btn-info btn-default btn-flat btn-block" "Add item")))))))
  -     
  -			      
  -				      
  +			(:button :type "submit" :class "btn btn-info btn-default btn-flat btn-block" "Add item")
  +			(:button :type "button" :class "btn btn-warning btn-default btn-flat btn-block"
  +				 :data-toggle "modal" :data-target "#myModal" "Switch Item or Add Multiple Pictures"))
  +		 (:div :id "myModal" :class "modal fade" :role "dialog"
  +		       (:div :class "modal-dialog"
  +			     (:div :class "modal-content"
  +				   (:div :class "modal-header"
  +					 (:button :type "button" :class "close" :data-dismiss "modal" "Close")
  +					 (:h4 :class "modal-title" "Switch or Add multiple pictures")
  +					 (:div :class "modal-body"
  +					        (dolist (img ,full-images)
  +						  (htm 
  +						   (:form :action "/swapitemposition"
  +							  :method "POST"
  +							  (:input :type "hidden" :id "image-name"
  +								  :name "image-name" :value img)
  +							  (:input :type "image" :id "saveform" :class "img-responsive"
  +								  :width "40%" :height "40%" :src img
  +								  :alt "Submit Form"))))))))))))))
  +		      				      
   (defmacro standard-order-intro ()
     `(with-html-output (*standard-output* nil :indent t)
        (:div :class "panel panel-default"
  
positive.code: 	"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"))
  
negative.code: 				       :id "fancybox"
  				       :rel "gallery1"
  				       :href (item-picture item)
  				       (:img :src (item-picture item) :class "img-responsive"
  					     :width "40%" :height "40%")))
  					       
  			      (:td (fmt "~A" (escape-string (item-description item))))
  			      (:td (fmt "~A" (escape-string (item-quantity item))))
  