anchor.diff:  	(hunchentoot:create-regex-dispatcher "^/hhub/delcomp" 'dod-controller-delete-company)
   	(hunchentoot:create-regex-dispatcher "^/hhub/journal-entry-added" 'dod-controller-journal-entry-added)
           (hunchentoot:create-regex-dispatcher "^/hhub/account-added" 'dod-controller-account-added)
  -	(hunchentoot:create-regex-dispatcher "^/hhub/list-users" 'dod-controller-list-users)
  +	(hunchentoot:create-regex-dispatcher "^/hhub/sadmincreateusers" 'com-hhub-transaction-sadmin-create-users)
   	(hunchentoot:create-regex-dispatcher "^/hhub/list-accounts" 'dod-controller-list-accounts)
   	(hunchentoot:create-regex-dispatcher "^/hhub/listattributes" 'dod-controller-list-attrs)
   	(hunchentoot:create-regex-dispatcher "^/hhub/dbreset.html" 'dod-controller-dbreset-page)
  
positive.code: (defun dod-controller-abac-security ()
    (let ((policies (hhub-get-cached-auth-policies)))
      (with-opr-session-check 
        (with-standard-admin-page (:title "Welcome to Highrisehub")
  	(iam-security-page-header)
  	(:hr)
  	(:div :class "row"
  
negative.code:       (setf params (acons "uri" (hunchentoot:request-uri*)  params))
        (with-hhub-transaction "com-hhub-transaction-sadmin-home" params 
        (let (( companies (hhub-get-cached-companies)))
  	(with-standard-admin-page "Welcome to Highrisehub."
  				  (:div :class "container"
  					(:div :id "row"
  					      (:div :id "col-xs-6" 
  