anchor.diff:  
   (defun dod-controller-vendor-pushsubscribe-page ()
     (with-vend-session-check
  -    (with-standard-vendor-page
  +    (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"))
  
positive.code:     ;list all the completed orders for Today. 
      (let* ((todaysorders (dod-get-cached-completed-orders-today))
  	   (total (if todaysorders (reduce #'+ (mapcar (lambda (ord) (slot-value ord 'order-amt)) todaysorders)))))
      (with-standard-vendor-page (:title "Welcome to DAS Platform- Vendor")
        (:div :class "row"
  	    (:div :class "col-xs-12 col-sm-4 col-md-4 col-lg-4" 
  		  "Completed orders "
  
negative.code: 
  (defun dod-controller-cmpsearch-for-vend-page ()
    (if (is-dod-vend-session-valid?)
        (with-standard-vendor-page  "Welcome to DAS platform" 
  	(:div :class "row"
  	      (:h2 "Search Apartment/Group")
  	      (:div :id "custom-search-input"
  