anchor.diff:  		 (:button :type "submit"
   			  :class "btn btn-primary"
   			  "Create Show")))))
  +
   (define-easy-handler (addshow :uri "/addshow") ()
     (add-show (make-instance 'show
   			   :name (hunchentoot:post-parameter "name")
   			   :contact-name (hunchentoot:post-parameter "contact-name")
   			   :phone-number (hunchentoot:post-parameter "phone-number")))
     (redirect "/"))
  +
   (define-easy-handler (adduser :uri "/adduser") ()
     (let ((username (hunchentoot:post-parameter "username"))
   	(password (hunchentoot:post-parameter "password"))
  
positive.code: 			     :method "POST"
  			     (:input :type "hidden" :name "showname" :value (show-name (find-invoice-from-message messages)))
  			     (:input :type "hidden" :name "setname" :value (invoice-set-name (find-invoice-from-message messages)))
  		 (:button :type "submit" :class "btn btn-default" "Write Order"))))))))))
  
  (defmacro standard-order-intro ()
  
negative.code:     (standard-dashboard :messages (standard-global-messages)))
    (redirect "/login"))))
  
  (define-easy-handler (displayimagegot :uri "/displayimagegot") ()
    (let ((whatever (loop for post-parameter in (hunchentoot:post-parameters*)
  		     if (equal (car post-parameter) "picture-batch")
  				    collect post-parameter)))
      (standard-page (:title "Picture Batch")
        (standard-navbar)
        (mapc #'(lambda (x)
  		(format t "~A ~A ~A ~A <br>"  (car x)
  			(second x)
  			(third x)
  			(fourth x)))
  		     
  	    whatever))))
  
  (define-easy-handler (setthemcookies :uri "/setthemcookies") ()
    (standard-page (:title "Set Them Cookies")
      (standard-navbar)
      (standard-invoice-writing :show  (fmt "Showname: ~A" (escape-string (hunchentoot:post-parameter "showname")))
  			      :set (fmt "Setname: ~A" (escape-string (hunchentoot:post-parameter "setname")))
  			      :contact (fmt "Contact: ~A" (escape-string (hunchentoot:post-parameter "contact"))))
      (standard-picture-upload)))
  
  (define-easy-handler (signout :uri "/signout") ()
    (set-cookie "current-user" :value "login")
  