anchor.diff:  	(hunchentoot:create-regex-dispatcher "^/hhub/sadminhome" 'com-hhub-transaction-sadmin-home)
   	(hunchentoot:create-regex-dispatcher "^/hhub/dasabacsecurity" 'dod-controller-abac-security)
   	(hunchentoot:create-regex-dispatcher "^/hhub/hhubnewcompanyreqpage" 'dod-controller-new-company-request-page)
  +	(hunchentoot:create-regex-dispatcher "^/hhub/hhubnewstorerequeststep2" 'dod-controller-new-store-request-step2)
   	(hunchentoot:create-regex-dispatcher "^/hhub/hhubnewcompreqemailaction" 'dod-controller-new-company-request-email)
   	(hunchentoot:create-regex-dispatcher "^/hhub/hhubnewcompreqemailsent" 'dod-controller-new-company-registration-email-sent) 
   	(hunchentoot:create-regex-dispatcher "^/hhub/createcompanyaction" 'com-hhub-transaction-create-company)
  
positive.code: 
  (defvar *logged-in-users* nil)
  (defvar *current-user-session* nil)
  
  (defun com-hhub-transaction-suspend-account ()
    :documentation "This is a controller method which will suspend an Account"
  
negative.code: 		     ( or (null cmpaddress) (zerop (length cmpaddress)))
  		     ( or (null cmpzipcode) (zerop (length cmpzipcode))))
  	  (cond 
  	    ((null (cdr (car json-response))) (dod-response-captcha-error))
  	    ((and company
  		  (equal tnccheck "tncagreed"))
  	     (let ((context "hhubnewcompreqemailaction"))
  	       (hunchentoot:start-session)
  	       (setf (hunchentoot:session-value :newstorerequest-company) company)
  	       (setf (hunchentoot:session-value :newstorerequest-custname) custname )
  	       (setf (hunchentoot:session-value :newstorerequest-phone) phone )
  	       (setf (hunchentoot:session-value :newstorerequest-email) email)
  	       (generateotp&redirect phone context)))))))
  	 
  
      
  
  
  (defun dod-controller-new-company-request-email ()
    (let*  ((company (hunchentoot:session-value :newstorerequest-company))
  	  (custname (hunchentoot:session-value :newstorerequest-custname))
  	  (phone (hunchentoot:session-value :newstorerequest-phone))
  	  (email (hunchentoot:session-value :newstorerequest-email)))
  	  
      (when company (send-new-company-registration-email company custname phone email))
      ;; When an email is sent, we will clear the session. 
      (hunchentoot:remove-session hunchentoot:*session*)
      (hunchentoot:redirect "/hhub/hhubnewcompreqemailsent")))
  
  	  
  
  (defun 	com-hhub-transaction-create-company ()
  