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: 	  (products (hunchentoot:session-value :login-prd-cache))
  	  (payment-mode (hunchentoot:parameter "payment-mode"))
  	  (odate (get-date-from-string  (hunchentoot:parameter "orddate")))
  	  (shipaddress (hunchentoot:parameter "shipaddress"))
  	  (reqdate (get-date-from-string (hunchentoot:parameter "reqdate")))
  	  (phone (hunchentoot:parameter "phone"))
  	  (email (hunchentoot:parameter "email"))
  
negative.code: 	   (products (hunchentoot:session-value :login-prd-cache))
  	   (payment-mode (hunchentoot:parameter "payment-mode"))
  	   (odate  (hunchentoot:parameter "orddate"))
  	   (custname (hunchentoot:parameter "custname"))
  	   (shipaddress (hunchentoot:parameter "shipaddress"))
  	   (shipzipcode (hunchentoot:parameter "shipzipcode"))
  	   (shipcity (hunchentoot:parameter "shipcity"))
  	   (shipstate (hunchentoot:parameter "shipstate"))
  	   (billaddress (hunchentoot:parameter "billaddress"))
  	   (billzipcode (hunchentoot:parameter "billzipcode"))
  	   (billcity (hunchentoot:parameter "billcity"))
  	   (billstate (hunchentoot:parameter "billstate"))
  	   (billsameasshipchecked (hunchentoot:parameter "billsameasshipchecked"))
  	   (claimitcchecked (hunchentoot:parameter "claimitcchecked"))
  	   (gstnumber (hunchentoot:parameter "gstnumber"))
  	   (gstorgname (hunchentoot:parameter "gstorgname"))
  	   (reqdate (hunchentoot:parameter "reqdate"))
  	   (phone (hunchentoot:parameter "phone"))
  	   (email (hunchentoot:parameter "email"))
  