anchor.diff:  	   (:div :class "row"
   		 (:div :class "col-xs-12 col-sm-12 col-md-6 col-lg-6"
   		       (:div :class "form-group" (:label :for "phone" "Phone" )
  -			     (:input :class "form-control" :type "text" :class "form-control" :name "phone" :placeholder "Mobile Phone (9999999999) " :tabindex "3" :maxlength "13"  :required T )))
  +			     (:input :class "form-control" :type "text" :class "form-control" :name "phone" :value temp-cust-phone :placeholder "Mobile Phone (9999999999) " :tabindex "3" :maxlength "13"  :required T )))
   			      
   		 (:div :class "col-xs-12 col-sm-12 col-md-6 col-lg-6"
   		       (:div :class "form-group" (:label :for "email" "Email" )
  -			     (:input :class "form-control" :type "email" :class "form-control" :name "email" :placeholder "Email" :data-error "That email address is invalid" :tabindex "4" ))))
  +			     (:input :class "form-control" :type "email" :class "form-control" :name "email" :value temp-cust-email :placeholder "Email" :data-error "That email address is invalid" :tabindex "4" ))))
   	   (:div :class "row"
   		 (:hr))
   	   ;; Row for Shipping and Billing Address. 
  
positive.code: 	   (comments (if phone (format nil "~A, ~A, ~A, ~A, ~A, ~A" phone email shipaddress shipcity shipstate shipzipcode)))
  	   (shopcart-total (get-shop-cart-total odts))
  	   (customer (get-login-customer))
  	   (cust-type (cust-type customer))
  	   (custcomp (get-login-customer-company))
  	   (company-type (slot-value custcomp 'cmp-type))
  	   (vendor-list (get-shopcart-vendorlist odts))
  	   (wallet-id (slot-value (get-cust-wallet-by-vendor customer (first vendor-list) custcomp) 'row-id))
  	   (order-cxt (format nil "hhubcustopy~A" (get-universal-time)))
  	   (shopcart-products (mapcar (lambda (odt)
  					(let ((prd-id (slot-value odt 'prd-id)))
  					  (search-prd-in-list prd-id products ))) odts)))
  
negative.code: 
  
  
  (eval-when (:compile-toplevel :load-toplevel :execute) 
    (defmacro with-customer-navigation-bar ()
      :documentation "this macro returns the html text for generating a navigation bar using bootstrap."
      `(let ((customer-type (get-login-customer-type)))
         (cl-who:with-html-output (*standard-output* nil)
  	 (:div :class "navbar navbar-inverse  navbar-static-top"
  	     (:div :class "container-fluid"
  		   (:div :class "navbar-header"
  			 (:button :type "button" :class "navbar-toggle" :data-toggle "collapse" :data-target "#navheadercollapse"
  				  (:span :class "icon-bar")
  				  (:span :class "icon-bar")
  				  (:span :class "icon-bar"))
  			 (:a :class "navbar-brand" :href "#" :title "highrisehub" (:img :style "width: 50px; height: 50px;" :src "/img/logo.png" ))
  			 (:a :class "navbar-brand" :onclick "javascript:history.go(-1);"  :href "#"  (:span :class "glyphicon glyphicon-arrow-left")))
  		   (:div :class "collapse navbar-collapse" :id "navheadercollapse"
  			 (:ul :class "nav navbar-nav navbar-left"
  			      (:li :class "active" :align "center" (:a :href "/hhub/dodcustindex" (:span :class "glyphicon glyphicon-home")  " Home"))
  			      (if (equal customer-type "STANDARD")
  				  (cl-who:htm (:li :align "center" (:a :href "dodcustorderprefs" "Subscriptions"))
  					      (:li :align "center" (:a :href "dodcustorderscal" "Orders"))
  					      (:li :align "center" (:a :href "dodcustwallet" (:span :class "glyphicon glyphicon-piggy-bank") " Wallets" ))))
  					;(:li :align "center" (:a :href "#" (print-web-session-timeout)))
  			      (:li :align "center" (:a :href "#" (cl-who:str (format nil "Group: ~a" (get-login-customer-company-name))))))
  			 
  			 (:ul :class "nav navbar-nav navbar-right"
  			      (if (equal customer-type "STANDARD")
  				  (cl-who:htm
  				   (:li :align "center" (:a :href "#"   (:span :class "glyphicon glyphicon-bell") " " ))
  				   (:li :align "center" (:a :href "dodcustprofile"   (:span :class "glyphicon glyphicon-user") " " ))))
  			      
  			      
  			      
  					;(:li :align "center" (:a :href "/dodcustshopcart" (:span :class "glyphicon glyphicon-shopping-cart") " my cart " (:span :class "badge" (cl-who:str (format nil " ~a " (length (hunchentoot:session-value :login-shopping-cart)))) )))
  			      (:li :align "center" (:a :href "dodcustlogout" (:span :class "glyphicon glyphicon-off")))))))))))
      
  
  (eval-when (:compile-toplevel :load-toplevel :execute) 
    (defmacro with-guestuser-navigation-bar ()
      :documentation "this macro returns the html text for generating a navigation bar using bootstrap."
      `(cl-who:with-html-output (*standard-output* nil)
         (:div :class "navbar navbar-inverse  navbar-static-top"
  	     (:div :class "container-fluid"
  		   (:div :class "navbar-header"
  			 (:button :type "button" :class "navbar-toggle" :data-toggle "collapse" :data-target "#navheadercollapse"
  				  (:span :class "icon-bar")
  				  (:span :class "icon-bar")
  				  (:span :class "icon-bar"))
  			 (:a :class "navbar-brand" :href "#" :title "highrisehub" (:img :style "width: 50px; height: 50px;" :src "/img/logo.png" )  ))
  		   (:div :class "collapse navbar-collapse" :id "navheadercollapse"
  			 (:ul :class "nav navbar-nav navbar-left"
  			      (:li :class "active" :align "center" (:a :href "/hhub/dodcustindex" (:span :class "glyphicon glyphicon-home")  " Home"))
  			      (:li :align "center" (:a :href "#" (cl-who:str (format nil "Group: ~a" (get-login-customer-company-name))))))
  			 (:ul :class "nav navbar-nav navbar-right"
  			      (:li :align "center" (:a :href "dodcustlogout" (:span :class "glyphicon glyphicon-off")  )))))))))
    
    
    ;;**********************************************************************************
    ;;***************** customer login related functions ******************************
  
  (defun dod-controller-cust-apt-no ()
   (let ((cname (hunchentoot:parameter "cname")))
  