anchor.diff:        (let* ((vendor-company (get-login-vendor-company))
   	     (cmplist (hunchentoot:session-value :login-vendor-tenants)))
   	   
  -	(with-standard-vendor-page (:title "Welcome to DAS Platform - Vendor")
  +	(with-standard-vendor-page "Welcome to DAS Platform - Vendor"
   	  (:a :class "btn btn-primary" :role "button" :href "dodvendsearchtenantpage" (:span :class "glyphicon glyphicon-shopping-cart") " Add New Group  ")
   	  (:hr)
   	  (:h5 (cl-who:str (format nil "Currently Logged Into Group - ~A" (slot-value vendor-company 'name))))
  
positive.code: 
  (defun dod-controller-cmpsearch-for-vend-page ()
    (if (is-dod-vend-session-valid?)
        (with-standard-vendor-page (:title "Welcome to DAS platform") 
  	(:div :class "row"
  	      (:h2 "Search Apartment/Group")
  	      (:div :id "custom-search-input"
  
negative.code: 
  (defun dod-controller-vendor-pushsubscribe-page ()
    (with-vend-session-check
      (with-standard-vendor-page "Push Subscription for Vendor"
        (cl-who:with-html-output (*standard-output* nil)
        (:div :class "row"
  	    (:h3 "Subscribe to Push Notification on your Browser"))
  