anchor.diff:  				"/" (directory-safe setname) "/")))
       (ensure-directories-exist root-dir)
       (register-invoice 
  -		      :set-name setname
  -		      :show-name showname
  -		      :contact-name contact
  -		      :root-dir root-dir
  -		      :pdf-location (directory-safe (concatenate 'string root-dir "pdf/" showname "-" setname ".pdf")))
  -  (redirect "/dashboard")))
  +     :set-name setname
  +     :show-name showname
  +     :contact-name contact
  +     :root-dir root-dir
  +     :pdf-location (directory-safe (concatenate 'string root-dir "pdf/" showname "-" setname ".pdf")))
  +    (redirect "/dashboard")))
   
   ;;;Basic function to create a new show		      
   (define-easy-handler (write-order :uri "/write-order") ()
     (standard-page (:title "Write Order")
  -		 (:navbar (test-navbar))
  -		 (standard-order-intro)))
  +    (:navbar (test-navbar))
  +    (standard-order-intro)))
   
   ;;;Adds a message to the global message list
   ;;;This can be a notification for a new order/show/invoice
  
positive.code: 				      (:form :action (concatenate 'string "/partial-check-in?qty=" (db-item-qty item) "&desc=" (db-item-desc item) "&price=" (db-item-price item))
  					     :method "POST"
  					     (:p :class "range-field"
  						 (:input :id "ranged" :name "ranged" :type "range" :min "0" :max (web-math-subtract (db-item-qty item) (item-returned-qty item)) :oninput "this.form.rangedName.value=this.value"))
  					     (:input :class "left" :type "number" :name "rangedName" :min "0" :max (web-math-subtract (db-item-qty item) (item-returned-qty item)):value (web-math-subtract (db-item-qty item) (item-returned-qty item)) :oninput "this.form.ranged.value=this.value")
  					     
  					     (:button :type "submit"  :class "right red darken-4 btn-floating" (:i :class "material-icons" "arrow_downward")))))))))))
       
  
negative.code: 	       "}{"
  	       (db-item-qty b) "}{"
  	       (db-item-price  b) "}{"	       
  	       (if (and (mito:retrieve-dao 'partial-db :item b)
  			(string= "" (item-returned-on b)))
  		   (let ((c (first (mito:retrieve-dao 'partial-db :item b))))
  		     (concatenate 'string (partial-return-qty c) " RTN'D " (partial-return-date c)))
  		   "")
  	       "}{"
  	       (item-returned-on b)
  	       "}"))
  