anchor.diff:     
   (defun dod-controller-vend-profile ()
   (if (is-dod-vend-session-valid?)
  -    (with-standard-vendor-page (:title "Welcome to Highrisehub")
  +    (with-standard-vendor-page "HighriseHub - Vendor Profile"
          (:h3 "Welcome " (cl-who:str (format nil "~A" (get-login-vendor-name))))
          (:hr)
          (:div :class "list-group col-sm-6 col-md-6 col-lg-6"
  
positive.code:     (hunchentoot:redirect "/hhub/vendor-login.html")))
  
  
  
  (defmacro with-vendor-navigation-bar ()
      :documentation "This macro returns the html text for generating a navigation bar using bootstrap."
   `(cl-who:with-html-output (*standard-output* nil)
      (:nav :class "navbar navbar-expand-sm bg-dark navbar-dark fixed-top"
  	  (:a :class "navbar-brand" :href "#" :title "HHUB" (:img :style "width: 50px; height: 50px;" :src "/img/logo.png" ))
  	;;  (:a :class "navbar-brand" :onclick "window.history.back();"  :href "#"  (:span :class "glyphicon glyphicon-arrow-left"))
  	  (:button :class "navbar-toggler" :type "button" :data-toggle "collapse" :data-target "#navbarVendor" :aria-controls "navbarVendor" :aria-expanded "false" :aria-label "Toggle navigation"
  		   (:span :class "navbar-toggler-icon"))
  	  (:div :class "collapse navbar-collapse" :id "navbarVendor"
  		(:ul :class "navbar-nav mr-auto navbar-left"
  		     (:li :class "nav-item active"  (:a :class "nav-link" :href "dodvendindex?context=home"  (:i :class "fa fa-home" :aria-hidden "true")  " Home"))
  		     (:li :align "nav-item" (:a :class "nav-link" :href "dodvenproducts"  "My Products"))
  		     (:li :align "nav-item" (:a :class "nav-link" :href "dodvendindex?context=completedorders"  "Completed Orders"))
  		     (:li :align "nav-item" (:a :class "nav-link" :href "#" (print-web-session-timeout)))
  		     (:li :align "nav-item" (:a :class "nav-link" :href "#" (cl-who:str (format nil "Group: ~A" (get-login-vendor-company-name))))))
  		(:ul :class "navbar-nav mr-auto navbar-right"
  		     (:li :align "nav-item" (:a :class "nav-link" :href "dodvendprofile?context=home"   (:i :class "fa fa-user-circle" :aria-hidden "true") "&nbsp;&nbsp;" )) 
  		     (:li :align "nav-item" (:a :class "nav-link" :href "https://goo.gl/forms/XaZdzF30Z6K43gQm2"  (:i :class "fa fa-envelope-o" :aria-hidden "true") "&nbsp;&nbsp;"))
  		     (:li :align "nav-item" (:a :class "nav-link" :href "https://goo.gl/forms/SGizZXYwXDUiTgVY2" (:i :class "fa fa-bug" :aria-hidden "true") "&nbsp;&nbsp;" ))
  		     (:li :align "nav-item" (:a :class "nav-link" :href "dodvendlogout"  (:i :class "fa fa-sign-out" :aria-hidden"true") "&nbsp;&nbsp; "  )))))))
  
  
  
  (defun dod-controller-vend-login ()
    (let  ((phone (hunchentoot:parameter "phone"))
  
negative.code: 	       (customer (get-customer order-instance)) 
  	       (vendor (get-login-vendor))
  	       (wallet (get-cust-wallet-by-vendor customer vendor company-instance))
  	       (vendor-order-items (get-order-items-for-vendor-by-order-id  order-instance (get-login-vendor) ))
  	       (params nil))
  
  	 (setf params (acons "uri" (hunchentoot:request-uri*)  params))
  	 (setf params (acons "company" company-instance params))
  	 (with-hhub-transaction "com-hhub-transaction-vendor-order-setfulfilled"  params   
  	   (progn (if (equal payment-mode "PRE")
  		      (if (not (check-wallet-balance (get-order-items-total-for-vendor vendor  vendor-order-items) wallet))
  			  (display-wallet-for-customer wallet "Not enough balance for the transaction.")))
  		  (set-order-fulfilled "Y"  order-instance company-instance)
  		  (hunchentoot:redirect "/hhub/dodvendindex?context=pendingorders"))))))
  
  (defun display-wallet-for-customer (wallet-instance custom-message)
    (with-standard-vendor-page (:title "Wallet Display")
  