anchor.diff:  	"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)))
  +	  (concatenate 'string "There are " (write-to-string (filtered-length (cl-fad:list-directory invoice-pathname)))
   		       " pictures on this order"))))
  -  
  +
  +(defun filtered-length (directory-list)
  +  (length (remove-if #'(lambda (x)
  +			 (cl-fad:directory-exists-p x))
  +		     directory-list)))
  +
  +(define-easy-handler (swapitemposition :uri "/swapitemposition") ()
  +  (set-cookie "current-picture" :value (hunchentoot:post-parameter "image-name"))
  +  (redirect "/setthemcookies"))
  +
   (define-easy-handler (signout :uri "/signout") ()
     (set-cookie "current-user" :value "login")
     (redirect "/login"))
  
positive.code: 	 (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))))
  	 (images-filtered (filter-already-in-itemlist images invoice)))
      
    (standard-page (:title "Order Writeup")
    
  
negative.code: 	   (:div :class "box-body"
  		    (dolist (image ,image-list)
  		      (htm (:div :class "col-md-3 col-sm-4 col-xs-6"
  				 (:img :src image :class "img-responsive"
  				       :width "40%" :height "40%"))))))))
  
  (defmacro standard-check-in-showlist ()
    `(with-html-output (*standard-output* nil :indent t)
  