anchor.diff:  		       :invoice-name invoice-name
   		       :item-name item-name)
   	*current-message-list*))
  -(defvar *global-invoice-list* '())
  +
  +;;;Find an invoice-object connected to a message
  +;;;Used for generating buttons on the dashboard
   (defun find-invoice-from-message (mess)
     (let ((setname (first (message-invoice-name mess)))
   	(showname (second (message-invoice-name mess))))
  
positive.code: 		      (:li :class "list-group-item list-group-item-danger" ,set)
  		      (:li :class "list-group-item list-group-item-success" ,contact))))))
  
  (define-easy-handler (createInvoice :uri "/createInvoice") ()
    (let ((showname (hunchentoot:post-parameter "inputShowname"))
  	(setname (hunchentoot:post-parameter "inputSetname"))
  
negative.code: 		       :id-num id-num
  		       :set-name set-name
  		       :show-name show-name
  		       :contact-name contact-name) *global-invoice-list*))
  
  ;;; Webserver functions and scaffolding
  ;;;Set HTML5 preamble
  (setf (html-mode) :html5)
  
  (defun start-server (port)
    (start (make-instance 'easy-acceptor :port port)))
  
  ;;;Macro's for generating HTML
  ;;;Macros should be designed to work together so pages
  ;;;can be as modular as possible.
  (defmacro standard-page ((&key title) &body body)
    `(with-html-output-to-string
         (*standard-output* nil :prologue t :indent t)
  