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 shipzipcode shipcity shipstate billaddress billzipcode billcity billstate billsameasshipchecked claimitcchecked gstnumber gstorgname shopcart-total payment-mode comments customer custcomp order-cxt phone email custname))
  +      (save-cust-order-params (list odts shopcart-products odate 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"
  
positive.code: 	   (customer (get-login-customer))
  	   (cust-type (cust-type customer))
  	   (custcomp (get-login-customer-company))
  	   ;(vendor-list (get-shopcart-vendorlist odts))
  	   (order-cxt (format nil "hhubcustopy~A" (get-universal-time)))
  	   (shopcart-products (mapcar (lambda (odt)
  					(let ((prd-id (slot-value odt 'prd-id)))
  
negative.code: 	   (:hr)
  	   (:tr (:td
  		 (:h2 (:span :class "label label-default" (cl-who:str (format nil "Total = Rs ~$" shopcart-total)))))))))
      (send-order-mail email (format nil "HighriseHub order ~A" order-id) order-disp-str)))
  
  (defun send-order-sms-guest-customer (order-id phone)
  