anchor.diff:  ;;;Need to rewrite so defintions are in the URL for reloading to work
   (define-easy-handler (setthemcookies :uri "/setthemcookies") ()
     (let* ((invoice (find-invoice-from-cookie (cookie-in "current-invoice")))
  -	 (showname (show-name invoice))
  -	 (setname (invoice-set-name invoice))
  -	 (contact (invoice-contact-name invoice))
  +	 (showname (db-show-name (invoice-show  invoice)))
  +	 (setname (db-set-name invoice))
  +	 (contact (db-contact (invoice-show  invoice)))
   	 (change-pic-cookie (cookie-in "current-picture"))
   	 (images (prepare-for-table (cl-fad:list-directory
   				     (concatenate 'string (invoice-root-dir invoice) "webimg/"))))
  
positive.code: ;;;Updating item in db
  ;;;let binding, setf (slot-value 'obj 'slot) 'new-value
  ;;;mito:save-dao 'obj
  
  (defpackage :riley
    (:use :cl
  
negative.code: 	     :col-type :text)
     (show :col-type show-db
  	 :initarg :show-db
  	 :accessor invoice-show)
     (root-dir :col-type :text
  	     :accessor invoice-root-dir
  	     :initarg :root-dir)
     (pdf-location :initarg :pdf-location
  		 :accessor invoice-pdf-location
  		 :col-type :text))
    (:metaclass mito:dao-table-class))
  
  (defclass item-db ()
  