anchor.diff:  
   
   
  -
  -(defmacro with-customer-navigation-bar ()
  +(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 "window.history.back();"  :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"))))))))))
  +		   (: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")))))))))))
       
   
  -
  -(defmacro with-guestuser-navigation-bar ()
  -  :documentation "this macro returns the html text for generating a navigation bar using bootstrap."
  +(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 "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 ******************************
  +			 (: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")))
  
positive.code: 	   (: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 )))
  			      
  		 (: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" ))))
  	   (:div :class "row"
  		 (:hr))
  	   ;; Row for Shipping and Billing Address. 
  
negative.code: 	   (:div :class "row" 
  		 (:div :class "col-xs-12 col-sm-12 col-md-6 col-lg-6"
  		       (:div :class "form-group" (:label :for "custname" "Name" )
  			     (:input :class "form-control" :type "text" :class "form-control" :name "custname" :value temp-cust-name :placeholder "Name" :tabindex "1" :required T))))
  		      ;; (:div :class "col-xs-12 col-sm-12 col-md-6 col-lg-6"
  			;;     (:div :class "form-group" (:label :for "lastname" "Lastname" )
  			;;	   (:input :class "form-control" :type "text" :class "form-control" :name "shiplastname" :placeholder "Lastname" :tabindex "2" :required T))))
  