anchor.diff:  		       :root-dir root-dir
   		       :pdf-location pdf-location)
   	*global-invoice-list*))
  +(defun add-show-to-db (&key name contact)
  +  
  +  (mito:create-dao 'show-db :name name :contact contact :phone-number "000"))
   
   ;;;USED ALOT.  Lets you find an invoice on the global invoice list
   ;;;from the *showname*-*setname* form of a cookie string.
  
positive.code: 			   contact-name
  			   root-dir
  			   pdf-location)
    (push (make-instance 'invoice
  		       :id-num id-num
  		       :set-name set-name
  
negative.code: 	 (description (hunchentoot:post-parameter "input-item-description"))
  	 (price (hunchentoot:post-parameter "input-item-price"))
  	 (qty (hunchentoot:post-parameter "input-item-qty"))
  	 (image (hunchentoot:post-parameter "image-data"))
  	 (set-name (invoice-set-name invoice)))
      
      (mito:create-dao 'item-db :description description
  		     :quantity qty
  		     :price price
  		     :invoice-db (mito:find-dao 'invoice-db :set-name set-name))
      
  
      (push (make-instance 'item :description description
  			 :quantity qty
  			 :price price
  