anchor.diff:  		  (: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 ))
  +			(:input :class "form-control" :id "housenum" :name "housenum" :placeholder "Apt/Flat" :type "text"  ))
   		  (: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"
  
positive.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 (:title "Welcome to HighriseHub platform") 
  		(:div :class "row"
  		      (:h2 "Search Your Community Store.")
  		      (:div :id "custom-search-input"
  
negative.code: 
  (defun dod-controller-customer-profile ()
    (with-cust-session-check
      (with-standard-customer-page "HighriseHub - Customer Profile"
        (cl-who:with-html-output (*standard-output* nil :prologue t :indent t)
  	(:h3 "Welcome " (cl-who:str (format nil "~a" (get-login-cust-name))))
  	(:hr)
  