anchor.diff:        					; Save the customer order parameters. 
         (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))
   
  +      ;; Redirect to the OTP page only for Guest customer. 
  +      (if (equal cust-type "GUEST") (generateotp&redirect phone context)
  +	  ;;else for standard customer, redirect to final checkout page. 
  +	  (hunchentoot:redirect (format nil "/hhub/~A" context))))))
  +
  +
  +      	
  +
  +(defun dod-controller-cust-show-shopcart-readonly()
  +  (with-cust-session-check 
  +    (let* ((orderparams (get-cust-order-params)) 
  +	   (odts (nth 0 orderparams))
  +	   (shopcart-products (nth 1 orderparams))
  +	   (odate (nth 2 orderparams))
  +	   (reqdate (nth 3 orderparams)) 
  +	   (shipaddress (nth 5 orderparams))
  +	   (shipzipcode (nth 6 orderparams))
  +	   (shipcity (nth 7 orderparams))
  +	   (shipstate (nth 8 orderparams))
  +	   (billaddress (nth 9 orderparams))
  +	   (billzipcode (nth 10 orderparams))
  +	   (billcity (nth 11 orderparams))
  +	   (billstate (nth 12 orderparams))
  +	   (billsameasshipchecked (nth 13 orderparams))
  +	   (claimitcchecked (nth 14 orderparams))
  +	   (gstnumber (nth 15 orderparams))
  +	   (gstorgname (nth 16 orderparams))
  +	   (shopcart-total (nth 17 orderparams))
  +	   (payment-mode (nth 18 orderparams))
  +	   ;;(comments (nth 20 orderparams))
  +	   (phone  (nth 23 orderparams))
  +	   (email (nth 24 orderparams))
  +	   ;;(custname (nth 26 orderparams))
  +	   (customer (get-login-customer))
  +	   (custcomp (get-login-customer-company))
  +	   (cust-type (cust-type customer))
  +	   (order-cxt (format nil "hhubcustopy~A" (get-universal-time)))
  +	   (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)))
  +	   
         (with-standard-customer-page "Shopping cart finalize"
   	(:div :class "row"
   	      (:div :class "col-xs-12"
  
positive.code: 	   (comments (if phone (format nil "~A, ~A, ~A, ~A, ~A, ~A" phone email shipaddress shipcity shipstate shipzipcode)))
  	   (shopcart-total (get-shop-cart-total odts))
  	   (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)))
  					  (search-prd-in-list prd-id products ))) odts)))
  
negative.code: 	    (cl-who:str(ui-list-shopcart-readonly shopcart-products odts)))
        (:hr)))))
  	
  
  
  
  			   
  ; This is a pure function. 
  (defun get-order-items-total-for-vendor (vendor order-items) 
  