anchor.diff:  	 (header (list "Vendor" "Phone" "Balance" "Recharge"))
   	 (wallets (get-cust-wallets customer company)))
       (with-cust-session-check
  -      (with-standard-customer-page
  +      (with-standard-customer-page "HighriseHub - Customer Wallets"
   	(cl-who:str (display-as-table header wallets 'cust-wallet-as-row))))))
   					;     (cl-who:str (display-as-tiles wallets 'wallet-card))))))
   
  
positive.code: 	(paymentmode (hunchentoot:parameter "paymentmode")))
      (with-cust-session-check
        (with-standard-customer-page (:title "Add Customer Order")
  				   (cl-who:str (cust-add-order-page cust-type paymentmode))))))
  
  ;;; This function has been separated from the controller function because it is independently testable.
  
  (defun cust-add-order-page(cust-type paymentmode)
  					;We are using a hash table to store the function references to call them later.
  					; This is a good practice to avoid IF condition.
    (let ((temp-ht (make-hash-table :test 'equal)))
      (setf (gethash "STANDARD"  temp-ht) (symbol-function 'standard-cust-add-order-page))
      (setf (gethash "GUEST" temp-ht) (symbol-function 'guest-cust-add-order-page))
  
negative.code:   (with-cust-session-check
      (let ((params nil))
        (setf params (acons "uri" (hunchentoot:request-uri*)  params))
        (setf params (acons "company" (get-login-customer-company)  params))
        
        (with-hhub-transaction "com-hhub-transaction-create-order" params
         (multiple-value-bind (odts products odate reqdate ship-date shipaddress shopcart-total payment-mode comments cust custcomp order-cxt phone email )
  		  (values-list (get-cust-order-params))
  