anchor.diff:  				 (:input :class "form-control" :name "userid" :type "hidden" :value row-id))
   			   
   			   (:div :class "form-group"
  -				 (:button :class "btn btn-lg btn-primary btn-block" :type "submit" "Submit")))))))))
  -
  +				 (:button :class "btn btn-lg btn-primary btn-block" :type "submit" "Submit"))))))))
   
   
   (defun dod-controller-add-user-action ()
  
positive.code: 	 (tenant-id (if user (slot-value user 'tenant-id)))
  	 (userrole-instance (if user (select-user-role-by-userid row-id tenant-id)))
  	 (userrolename (if userrole-instance (slot-value (get-user-roles.role userrole-instance) 'name))))
            (setf params (acons "uri" (hunchentoot:request-uri*)  params))
      (with-hhub-transaction "com-hhub-transaction-edit-user" params
        (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"
  		    (:form :class "form-adduser" :role "form" :method "POST" :action "dasadduseraction" :data-toggle "validator"
  
negative.code: (in-package :hhub)
  (clsql:file-enable-sql-reader-syntax)
  
  
    
  (defun com-hhub-transaction-sadmin-create-users ()
   (with-opr-session-check 
        (let* ((tenant-id (hunchentoot:parameter "tenant-id"))
  	     (users (get-users-for-company tenant-id))
  	     (params nil))
  	(setf params (acons "uri" (hunchentoot:request-uri*)  params))
  	(setf params (acons "username" (get-login-user-name)  params))
  	
  	(with-hhub-transaction "com-hhub-transaction-sadmin-create-users" params
  	  (with-standard-admin-page "List HHUB Users"
  	    (:h3 "Users")
  	    (:a  :data-toggle "modal" :data-target (format nil "#adduser-modal")  :href "#"  (:span :class "glyphicon glyphicon-plus") " Add User")
  	    (modal-dialog (format nil "adduser-modal") "Add/Edit Policy" (modal.com-hhub-transaction-sadmin-create-users tenant-id "NEW"))
  	    (cl-who:str (display-as-table (list "Name" "Phone number" "Email" "Action")  users 'user-card)))))))
  
  
  
  (defun user-card (user-instance)
  