anchor.diff:  
   (conspack:defencoding item
     price quantity description invoices-on picture shows-on returned-on)
  -  
  +
   (defun save-data ()
     (let* ((saved-list (mapcar #'conspack:encode-object (invoice-item-list (car *GLOBAL-INVOICE-LIST*)))))
  -			    
  -        
  +    
  +    
       (with-open-file (out "caps.db"
   			 :direction :output
   			 :if-exists :supersede)
  
positive.code:   (set-cookie "current-invoice" :value "none")
    (let ((username (cookie-in "current-user")))
      (if (not (or (string= username "login") (string= username "")))
    (standard-page (:title "Dashboard")
     (:navbar  (test-navbar))
      (standard-dashboard :messages (standard-global-messages)))
    (redirect "/login"))))
  
  ;;;This function needs to be redone.  Currently it takes the post parameters of the item
  ;;;associated with an invoice and finds which item it is in the itemlist;  current date needs to be fixed
  
negative.code: 		      :root-dir root-dir
  		      :pdf-location '())
      (set-cookie "current-invoice" :value  *global-invoice-id*)
      (register-message :sender "Global Messages" :recipient "global"
  		      :content (concatenate 'string "An order has been started for " showname
  					    " for set " setname
  					    " ordered by " contact )
  		      :invoice-name (let ((shn showname)
  					  (stn setname)
  					  (cont contact))
  				      (lambda ()
  					(find-invoice-from-invoice
  					 (make-instance 'invoice
  							:set-name stn
  							:show-name shn
  							:contact-name cont))))))
    
    (redirect "/dashboard"))
  
  ;;;Basic function to create a new show		      
  