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: 		  (:div :class "form-group"
  			(:input :class "form-control" :name "name" :placeholder "Full Name (Required)" :type "text" :required T ))
  		  (:div :class "form-group"
  			(:input :class "form-control" :id "housenum" :name "housenum" :placeholder "Apt/Flat (Required)" :type "text" :required T ))
  		  (:div :class "form-group"
  			(:input :class "form-control" :name "email" :placeholder "Email (Required)" :type "text" :required T ))
  		  
  		  (:hr))
  	    
  	    (:div :class "col-lg-6 col-md-6 col-sm-6"     
  		  
  		  
  					; (:label :for "tenant-id" (cl-who:str "Group/Apartment"))
  					; (company-dropdown "tenant-id" (list-dod-companies)) )
  		  (:div :class "form-group"
  			(:input :class "form-control" :name "phone" :placeholder "Your Mobile Number (Required)" :type "text" :required T))
  		  
  		  (:div :class "form-group"
  			(:input :class "form-control" :name "password" :id "inputpass"  :placeholder "Password" :type "password" :required T ))
  		  (:div :class "form-group"
  
negative.code: (defun dod-controller-company-search-page ()
    (handler-case
        (progn  (if (equal (caar (clsql:query "select 1" :flatp nil :field-names nil :database *dod-db-instance*)) 1) T)	      
  	      (with-standard-customer-page "Welcome to HighriseHub platform" 
  		(:div :class "row"
  		      (:h2 "Search Your Community Store.")
  		      (:div :id "custom-search-input"
  