anchor.diff:        (:div :class "row"
   	    (:div :class "col-xs-12"
   		  (cond
  -		    ((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") (or (equal company-type "COMMUNITY") (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" :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:   (let* ((pincode (hunchentoot:parameter "pincode"))
  	 (params nil)
  	 (addressadapter (make-instance 'Address-Adapter))
  	 (presenter (make-instance 'Address-Presenter)))
      
      (setf params (acons "pincode" pincode params))
      (renderJSON presenter (createviewmodel presenter (processrequest addressadapter params)))))
  
  
  (defun modal.customer-update-details (customer)
  
negative.code:         ; Handle this condition
     
        (clsql:sql-database-data-error (condition)
  	  (if (equal (clsql:sql-error-error-id condition) 2013 ) (progn
  								   (stop-das) 
  								   (start-das)
  ;								   (clsql:reconnect :database *dod-db-instance*)
  