anchor.diff:  		    ((and (equal payment-mode "OPY") (or (equal company-type "BASIC") (equal company-type "PROFESSIONAL"))) (cl-who:str (make-payment-request-html (format nil "~A" shopcart-total)   (format nil "~A" wallet-id) "live" order-cxt)))
   		    ((and (equal payment-mode "OPY") (equal company-type "TRIAL")) (cl-who:str (make-payment-request-html (format nil "~A" shopcart-total)   (format nil "~A" wallet-id) "test" order-cxt)))
   		    (T (with-html-form "placeorderform" "dodmyorderaddaction"  
  -			       (:span :class "input-group-btn" (:button :class "btn btn-lg btn-primary btn-block" :type "submit" "Place Order" )))))))      
  +			       (:span :class "input-group-btn" (:button :class "btn btn-lg btn-primary" :type "submit" "Place Order" )))))))      
         
         (:hr)
         (:div :class "row"
  
positive.code: 	     (setf (gethash "GUEST-SMS" temp-ht) (symbol-function 'send-order-sms-guest-customer))
  	     (setf (gethash "STANDARD-EMAIL" temp-ht) (symbol-function 'send-order-email-standard-customer))
  	     (setf (gethash "STANDARD-SMS" temp-ht) (symbol-function 'send-order-sms-standard-customer))
  
  	     (hunchentoot:log-message* :info (format nil "Email - ~A" email))
  
  	     
  	       ;; Send order SMS to guest customer if phone is provided. (Phone is required field for Guest customer, hence SMS will always be sent)
  	       (when (and (equal cust-type "GUEST") phone) (funcall (gethash (format nil "~A-SMS" cust-type) temp-ht) order-id phone))
  	       ;; Send order email to guest customer if email is provided. 
  	       (when (and (equal cust-type "GUEST") email)  (funcall (gethash (format nil "~A-EMAIL" cust-type) temp-ht) order-id email temp-customer  products odts))
  	       ;; If STANDARD customer has email, then send order email 
  	       (when (and (equal cust-type "STANDARD") email) (funcall (gethash (format nil "~A-EMAIL" cust-type) temp-ht) order-id email products odts))
  	       ;; If standard customer has phone, then send SMS 
  	       (when (and (equal cust-type "STANDARD") phone) (funcall (gethash (format nil "~A-SMS" cust-type) temp-ht) order-id phone))
  	     
  
negative.code: 				   (: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,'');"  ))
  				   (:div :class "form-group"
  					 (:span :id "areaname" :class "label label-info" ""))
  				   (:div :class "form-group" (:label :for "city" "City" )
  					 (:input :class "form-control" :type "text" :class "form-control" :name "shipcity" :id "shipcity" :placeholder "City" :readonly T :required T))
  				   (:div :class "form-group" (:label :for "state" "State" )
  					 (:input :class "form-control" :type "text" :class "form-control" :name "shipstate" :id "shipstate"  :placeholder "State"  :readonly T :required T )))))
  		 
  	   (:div :class "col-xs-12 col-sm-12 col-md-6 col-lg-6" 
  		 (:div :class "row"
  