anchor.diff:  					   " ordered by " contact )
   		    :invoice-name (list setname showname contact *global-invoice-id*)))
     (redirect "/dashboard"))
  -		      
  +
  +;;;Basic function to create a new show		      
   (define-easy-handler (write-order :uri "/write-order") ()
     (standard-page (:title "Write Order")
       (standard-navbar)
       (standard-order-intro)))
   
  +;;;Adds a message to the global message list
  +;;;This can be a notification for a new order/show/invoice
  +;;;or a message posted by a user
   (define-easy-handler (addmessage :uri "/addmessage") ()
     (let ((username (cookie-in "current-user"))
   	(message (hunchentoot:post-parameter "message")))
  
positive.code: 	       (item-price b) "}{"
  	       (item-returned-on b) "}"))
      
  	 
  ;;;--------------------------------------------------------------------
  
negative.code: 	     (redirect "/login"))
  	(redirect "/badpassword"))))
  
  ;;;For the love of McCarthy please turn this into a macro already
  (define-easy-handler (login :uri "/login") ()
    (standard-page (:title "Login")
      (:div :id "landing"
  