anchor.diff:    (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
  -		       :set-name set-name
  -		       :show-name show-name
  -		       :contact-name contact-name
  -		       :itemlist '()
  -		       :root-dir root-dir
  -		       :pdf-location pdf-location)
  -	*global-invoice-list*))
  +      (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 pdf-location))
  +
   (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.
  -;(defun find-invoice-from-cookie (invoice-string)
  -;  (if (not (string= "none" invoice-string))
  -;      (let* ((magic-number (search "-" invoice-string))
  -;	     (showname (subseq invoice-string 0 magic-number))
  -;	     (setname (subseq invoice-string (+ magic-number 1)))
  -;	     (temp-invoice (make-instance 'invoice :show-name showname
  -;					  :set-name setname)))
  -;	(find-invoice-from-invoice temp-invoice))))
  -
   (defun find-invoice-from-cookie (id)
     (find-invoice-db :id (parse-integer id)))
   
   (defun find-invoice-item-list (id)
     (mito:retrieve-dao 'item-db :invoice-id (parse-integer id)))
  +
   ;;;Helper function for moving uploaded pictures to the correct directory
   ;;;Needs to delete the pictures after and be expanded.
   ;;;This version (past revision 66) now has side effects
  
positive.code: 	     :col-type :text))
    (:metaclass mito:dao-table-class))
  
  (defclass message ()
    ((sender :initarg :sender
  	   :accessor message-sender)
     (recipient :initarg :recipient
  	      :accessor message-recipient)
     (date :initarg :date
  	 :accessor message-date)
     (content :initarg :content
  	    :accessor message-content)
     (reply :initarg :reply
  	  :accessor message-reply)
     (read-date :initarg :read-date
  	      :accessor message-read-date)
     (read-on :initarg :read-on
  	    :accessor message-read-on)
     (private :initarg :private
  	    :accessor message-private)
     (show-name :initarg :show-name
  	      :accessor message-show-name)
     (invoice-name :initarg :invoice-name
  		 :accessor message-invoice-name)
     (item-name :initarg :item-name
  	      :accessor message-item-name)))
  
  (defclass dashboard ()
    ((posts :initarg :posts
  	  :accessor dashboard-posts)
     (current-date :initarg :current-date
  		 :accessor dashboard-current-date)))
  
  ;;; Helper functions for classes
  
  ;;;Using a string NAME search for SHOW-NAME in DATA-LST
  (defun find-show-name (name data-lst)
    (find name data-lst :test #'string-equal
  	:key #'show-name))
  
  
  ;;;One way to do it that needs more work
  ;;;Alot more work...
  (defun find-show-db (&rest args)
  
negative.code: 
  
  ;;;Create an invoice and and push it onto the *GLOBAL-INVOICE-LIST*
  (defun register-invoice (&key 
  			   set-name
  			   show-name
  			   contact-name
  