anchor.diff:  	 (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")))
  +	 (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
  
positive.code: 			   contact-name
  			   root-dir
  			   pdf-location)
    (push (make-instance 'invoice
  		       :id-num id-num
  		       :set-name set-name
  
negative.code: 	     :initform '())
     (returned-qty :initarg :returned-qty
  		 :accessor item-returned-qty)
    (notes :initarg :notes
  	  :accessor item-notes
  	  :initform '())
     (returned-on :initarg :returned-on
  		:accessor item-returned-on)))
  
  (defclass item-db ()
    ((price :initarg :price
  	  :accessor :db-item-price
  	  :col-type :text)
     (quantity :initarg :quantity
  	     :accessor :db-item-qty
  	     :col-type :text)
     (description :initarg :description
  		:accessor :db-item-desc
  		:col-type :text)
     (invoice :col-type invoice-db
  	    :initarg invoice-db
  	    :accessor db-item-invoice))
    (:metaclass mito:dao-table-class))
  
  (defclass user ()
    ((name :initarg :name
  