anchor.diff:  		:col-type :text))
     (:metaclass mito:dao-table-class))
   
  -(defclass user ()
  -  ((name :initarg :name
  -	 :accessor user-name)
  -   (rank :initarg :rank
  -	 :accessor user-rank)
  -   (password :initarg :password
  -	     :accessor user-password)
  -   (shows-checked :initarg :shows-checked
  -		  :accessor user-shows-checked)
  -   (invoice-history :initarg :invoice-history
  -		    :accessor user-invoice-history)
  -   (points :initarg :points
  -	   :accessor user-points)
  -   (messages :initarg :messages
  -	     :accessor user-messages)
  -   (status :initarg :status
  -	   :accessor user-status)))
  -
   (defclass user-db ()
     ((name :initarg :name
   	 :accessor db-user-name
  
positive.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
  		       :set-name set-name
  		       :show-name show-name
  		       :contact-name contact-name
  		       :itemlist '()
  		       :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.
  ;(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
  
negative.code: (defun find-invoice-db (&rest args)
    (apply #'mito:find-dao 'invoice-db args))
  
  (defun find-item-db (&rest args)
    (apply #'mito:find-dao 'item-db args))
  
  (defun find-user-db (&rest args)
    (apply #'mito:find-dao 'user-db args))
  ;;;Create a user from a USERNAME and PASSWORD and push onto *USERS*
  (defun register-user (&key username password)
    (mito:create-dao 'user-db 
  		       :name username
  		       :password password
  		       :rank "user"))
  
  ;;;Find an invoice-object connected to a message
  ;;;Used for generating buttons on the dashboard
  