anchor.diff:  		    (:div :id "modalPics" :class "col s12 m6 l6"
   			  (:div :class "card"
   				(:div :class "card-content"
  -			  (: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 "100%" :height "50%" :src img
  -					 :alt "Submit Form")))
  +				      (: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 "100%" :height "50%" :src img
  +						     :alt "Submit Form")))
   				(:div :class "card-action"
   				      (:form :action "#" :id "modalCheck"
   					     (:p
   					      (:input :type "checkbox" :id img)
   					      (:label :for img "Select"))))))
  -				(:div :id "modalFoot" :class "modal-footer"))))
  +		    (:div :id "modalFoot" :class "modal-footer"))))
   	   (:script "$(document).ready(function(){ $('.modal').modal(); });"))))
   
   (defmacro standard-order-intro ()
  
positive.code:     ((> (length lst) 1) (list (list (car lst) (cadr lst)) (pair-off (cddr lst))))
      ((<= (length lst) 1) (list (car lst) '()))))
  
  (defmacro standard-multi-pic (&key image full-images)
    `(with-html-output (*standard-output* nil :indent t)
       (:div :class "section"
  	   (:div :class "row"
  	   (dolist (img ,full-images)
  	     (htm
  	      (:div :class "col s12 m6 l6"
  		    (:div :class "card"
  			  (:div :class "card-image"
  				(:img  :src (escape-string (concatenate 'string img)) :class "materialboxed"))
  			  (:div :class "card-action"
  				(:form :action "#"
  				       (:p
  					(:input :type "checkbox" :id img)
  					(:label :for img "Select"))))))))))))
  
  ;;;gensym portion probably needs to be changed
  (defmacro standard-item-writeup (&key image full-images)
  
negative.code: 	(reduce #'web-math-add (mapcar #'partial-return-qty partial-list))
  	"0")))
  
  (define-easy-handler (multi-pic :uri "/multi-pic") (item price qty)
    (let* ((invoice (find-invoice-from-cookie (cookie-in "current-invoice")))
  	 (images (prepare-for-table (cl-fad:list-directory
  				     (concatenate 'string (invoice-root-dir invoice) "webimg/"))))
  	 (invoice (find-invoice-from-cookie (cookie-in "current-invoice")))
  	 
  	 (images-filtered (filter-already-in-itemlist images invoice)))
      
      (standard-page (:title "Multi Picture Add")
        (:navbar (test-navbar))
        (standard-multi-pic :item-desc item
  			  :item-price price
  			  :item-qty qty
  			  :full-images  images-filtered))))
  
  (define-easy-handler (multi-pic-handler :uri "/multi-pic-handler") ()
    (let ((multi-pic-list (loop for post-parameter in (hunchentoot:post-parameters*)
  			   if (equal (car post-parameter) "checkbox[]")
  			   collect post-parameter))
  	(item-desc (hunchentoot:post-parameter "itemdesc"))
  	(item-price (hunchentoot:post-parameter "itemprice"))
  	(item-qty (hunchentoot:post-parameter "itemqty")))
      (standard-page (:title "Multi-pic-handler")
        (mapc #'(lambda (x)
  		(format t "~A ~a<br>" x (escape-string item-desc))
  	        (multi-pic-add item-qty item-desc item-price (cdr x)))
  	    multi-pic-list)))
    (redirect "/setthemcookies"))
  
  
  
  (defun multi-pic-add (qty desc price pic)
    (let* ((invoice (find-invoice-from-cookie (cookie-in "current-invoice")))
  	 (item-r (find-item-db :price price :quantity qty :description desc :invoice (mito:find-dao 'invoice-db
  												    :show (mito:find-dao 'show-db :name (db-show-name (invoice-show invoice)))
  												    :set-name (db-set-name invoice)))))
      (mito:create-dao 'multi-pic
  		     :item-db item-r
  		     :picture pic)))
  
  (define-easy-handler (partial-check-in :uri "/partial-check-in") (qty desc price)
    (let* ((rtn (escape-string (hunchentoot:post-parameter "ranged")))
  