anchor.diff:  		     (setf (slot-value company 'state) cmpstate)
   		     (setf (slot-value company 'zipcode) cmpzipcode)
   		     (setf (slot-value company 'website) cmpwebsite)
  +		     (setf (slot-value company 'cmp-type) cmp-type)
  +		     (setf (slot-value company 'subscription-plan) subscription-plan)
   		     (update-company company))
   					;else
  -	      (new-dod-company cmpname cmpaddress cmpcity cmpstate cmpcountry cmpzipcode cmpwebsite loginuser loginuser)))
  -	(hunchentoot:redirect  "/hhub/sadminhome"))))))
  +	      (progn
  +		(new-dod-company cmpname cmpaddress cmpcity cmpstate cmpcountry cmpzipcode cmpwebsite cmp-type subscription-plan loginuser loginuser))))
  +		;; once a new company is created, create the Company Administrator
  +		;; Once a new company is created, we will create a default Vendor with the same name, phone number as the company admin)))
  +	      (hunchentoot:redirect  "/hhub/sadminhome"))))))
   
   
   
  
positive.code: 	 (cmpcity (if company (slot-value company 'city)))
  	 (cmpstate (if company (slot-value company 'state)))
  	 (cmpwebsite (if company (slot-value company 'website)))
  	 (cmpzipcode (if company (slot-value company 'zipcode))))
      (cl-who:with-html-output (*standard-output* nil)
        (:div :class "row" 
  	    (:div :class "col-xs-12 col-sm-12 col-md-12 col-lg-12"
  
negative.code: 	  (cmpcountry (hunchentoot:parameter "cmpcountry"))
  	  (cmpzipcode (hunchentoot:parameter "cmpzipcode"))
  	  (tnccheck (hunchentoot:parameter "tnccheck"))
  	  (captcha-resp (hunchentoot:parameter "g-recaptcha-response"))
  	  (paramname (list "secret" "response" ) ) 
  	  (paramvalue (list *HHUBRECAPTCHAV2SECRET*  captcha-resp))
  