anchor.diff:  				     :name image-name)
   		      (make-pathname :directory invoice-location
   				     :name image-name) :overwrite t)
  +    (ensure-directories-exist (concatenate 'string invoice-location "webimg/"))
  +    (let* ((new-img-name (concatenate 'string (invoice-set-name current-invoice)
  +							"-"
  +							(show-name current-invoice)
  +							"-"
  +						        (write-to-string (invoice-id-num current-invoice))
  +							".jpg")))
  +
  +      
  +    (cl-fad:copy-file (make-pathname :directory temp-image-directory
  +				     :name image-name)
  +		      (make-pathname :directory (concatenate 'string invoice-location "webimg/")
  +				     :name new-img-name) :overwrite t)
  +    (let* ((new-img-path (make-pathname :directory (concatenate 'string invoice-location "webimg/")
  +					:name new-img-name))
  +	   (img (read-jpeg-file new-img-path)))
  +    (write-jpeg-file new-img-path (resize-image img 1200 1600))))
  +    (setf (invoice-id-num current-invoice) (+ (invoice-id-num current-invoice) 1))
       (delete-file (make-pathname :directory temp-image-directory
   				:name image-name))))
   
  
positive.code: 	 (setname (invoice-set-name invoice))
  	 (contact (invoice-contact-name invoice))
  	 (change-pic-cookie (cookie-in "current-picture"))
  	 (images (prepare-for-table (cl-fad:list-directory (invoice-root-dir invoice))))
  	 (images-filtered (sort-item-list (filter-already-in-itemlist images invoice) change-pic-cookie)))
      (set-cookie "current-picture" :value  "")
      (standard-page (:title "Order Writeup")
  
negative.code: 				    collect post-parameter)))
      (standard-page (:title "Picture Batch")
        (mapc #'(lambda (x)
  		(rename-file (second x)
  			     (concatenate 'string "/tmp/"
  					  (third x)) :if-exists :supersede)
  