anchor.diff:  
   (defun guest-cust-add-order-page (&optional paymentmode)
     (cl-who:with-html-output-to-string (*standard-output* nil)
  -    (:form :class "form-order" :role "form" :id "hhubordcustdetails"  :method "POST" :action (if (equal paymentmode "OPY") "hhubcustonlinepayment" "dodcustshopcartro") :data-toggle "validator"
  +    (:form :class "form-order" :role "form" :id "hhubordcustdetails"  :method "POST" :action "dodcustshopcartro" :data-toggle "validator"
   	   (:div :class "row" 
   		 (:div :class "col-xs-12 col-sm-12 col-md-6 col-lg-6"
   		      (:h1 :class "text-center login-title"  "Customer - Add order ")
  
positive.code:     (let* ((odts (hunchentoot:session-value :login-shopping-cart))
  	   (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"))
  
negative.code: 	   (customer (get-login-customer))
  	   (cust-type (cust-type customer))
  	   (custcomp (get-login-customer-company))
  	   (company-type (slot-value custcomp 'cmp-type))
  	   (vendor-list (get-shopcart-vendorlist odts))
  	   (wallet-id (slot-value (get-cust-wallet-by-vendor customer (first vendor-list) custcomp) 'row-id))
  	   (order-cxt (format nil "hhubcustopy~A" (get-universal-time)))
  	   (shopcart-products (mapcar (lambda (odt)
  					(let ((prd-id (slot-value odt 'prd-id)))
  