anchor.diff:  					; Display the My Cart button. 
   		    (:div :class "col-lg-6 col-md-6 col-sm-6" :align "right"
   			  (:a :class "btn btn-primary" :role "button" :href "dodcustshopcart"  (:span :class "glyphicon glyphicon-shopping-cart") " My Cart  " (:span :class "badge" (cl-who:str (format nil " ~A " lstcount)))))))
  -       (:hr)       
  -       (cl-who:str(ui-list-customer-products lstproducts lstshopcart))))))
  +       (:hr)
  +       (cl-who:str (ui-list-customer-products lstproducts lstshopcart))))))
   
   
   
  
positive.code: 		       (:div :class "row"
  			     (:div :class "col-xs-12 col-sm-12 col-md-12 col-lg-12"
  				   (:div :class "form-group" (:label :for "shipaddress" "Shipping Address" )
  					 (:textarea :class "form-control" :id "shipaddress" :name "shipaddress" :rows "4" :tabindex "5" ))
  				   
  				   (:div :class "form-group" (:label :for "shipzipcode" "Pincode" )
  					 (:input :class "form-control" :type "text" :class "form-control" :inputmode "numeric" :maxlength "6" :id "shipzipcode" :name "shipzipcode" :placeholder "Pincode" :tabindex "8"  :oninput "this.value=this.value.replace(/[^0-9]/g,'');"  ))
  
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 "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" )
  