anchor.diff:  	      (userrole-instance (select-user-role-by-userid userid usertenantid))
   	      (roletobeupdated (select-role-by-name userrole-name))
   	      (role-row-id (if roletobeupdated (slot-value roletobeupdated 'row-id))))
  -	 
  -	      
   
   	(unless (and  
   		 (or (null fullname) (zerop (length fullname)))
  
positive.code: 		     (setf (slot-value userrole-instance 'role-id) role-row-id) 
  		     (update-user user)
  		     (update-user-role userrole-instance))
  	      ;else
  	      (progn 
  		(create-dod-user fullname username encryptedpass salt  email phone  usertenantid)
  		(let ((user-id  (slot-value (select-user-by-phonenumber phone usertenantid) 'row-id))
  		      (role-id (slot-value roletobeupdated 'row-id))) 
  		(create-user-role user-id role-id usertenantid)))))
  	(hunchentoot:redirect  "/hhub/sadminhome"))
        (hunchentoot:redirect "/hhub/opr-login.html")))
  
  
  (defun get-login-userid ()
  
negative.code: 
  
  (defun dod-controller-add-user-action ()
    (with-opr-session-check 
        (let*  ((userid (hunchentoot:parameter "userid"))
  	      (usertenantid (parse-integer (hunchentoot:parameter "usertenantid")))
  	      (fullname (hunchentoot:parameter "fullname"))
  