anchor.diff:  					; Save the email address to send a mail in future if this is a guest customer.
         (setf (hunchentoot:session-value :guest-email-address) email)
         					; Save the customer order parameters. 
  -      (save-cust-order-params (list odts shopcart-products (get-date-from-string odate) (get-date-from-string reqdate) nil  shipaddress shopcart-total payment-mode comments customer custcomp order-cxt phone email))
  -      (with-standard-customer-page
  -	(:title "Shopping cart finalize")
  +      (save-cust-order-params (list odts shopcart-products (get-date-from-string odate) (get-date-from-string reqdate) nil  shipaddress shipzipcode shipcity shipstate billaddress billzipcode billcity billstate billsameasshipchecked claimitcchecked gstnumber gstorgname shopcart-total payment-mode comments customer custcomp order-cxt phone email custname))
  +      (with-standard-customer-page "Shopping cart finalize"
   	(:div :class "row"
   	      (:div :class "col-xs-12"
   	      (:h4 (cl-who:str (format nil "Order Date: ~A" odate)))))
  
positive.code: 			    (:hr)
  			    (:a :class "btn btn-primary"  :role "button" :href "https://www.highrisehub.com"  (:span :class "glyphicon glyphicon-arrow-left"))
  			    (:a :class "btn btn-primary" :data-toggle "modal" :data-target (format nil "#requestcompany-modal")  :href "#" (:span :class "glyphicon glyphicon-plus") " New Community Store (FREE!)")
  			    (modal-dialog (format nil "requestcompany-modal") "Add/Edit Group" (com-hhub-transaction-request-new-company))))
  		(:hr)
  		(hhub-html-page-footer)))
  		      
  
negative.code: 
  (defun dod-controller-cust-add-order-detail-page ()
      (with-cust-session-check
  	(with-standard-customer-page  "Welcome to HighriseHub- Add Customer Order"
  	    (:div :class "row background-image: url(resources/login-background.png);background-color:lightblue;" 
  		(:div :class "col-sm-6 col-md-4 col-md-offset-4"
  		    (:div :class "orderpref"
  