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: 		:col-type :text)
     (invoice :col-type invoice-db
  	    :initarg :invoice-db
  	    :accessor db-item-invoice))
    (:metaclass mito:dao-table-class))
  
  (defclass user ()
  
negative.code:   (if (not (mito:find-dao 'show-db :name show-name))
        (add-show-to-db :name show-name
  		      :contact contact-name))
        (mito:create-dao 'invoice-db :set-name set-name :date-out "000" :show-db (mito:find-dao 'show-db :name show-name) :root-dir root-dir :pdf-location "")
  
    (push (make-instance 'invoice
  		       :id-num id-num
  