New procedures created for the user management screens.

git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@2973 248e525c-4dfb-0310-94bc-949c084e9493

Modules/mip_security.pck

@@ -51,6 +51,19 @@ recordThe resultant hash is recorded as the username 'password hash'
   PROCEDURE new_password(p_username IN VARCHAR2
                         ,p_password IN VARCHAR2);
 
+  /*
+    creates a new password for another user
+  */
+  PROCEDURE other_user_password(p_prty_id IN number,
+                                p_username IN VARCHAR2,
+                                p_password IN VARCHAR2);
+  --
+  
+  /**  Updates the user status
+    */
+  PROCEDURE set_user_status(p_username IN VARCHAR2, p_status IN VARCHAR2);
+  --
+
   /** Authorize access to the given page
   %param p_app_user The name of the application user
   %param p_page_id The page to be accessed
@@ -483,6 +496,33 @@ CREATE OR REPLACE PACKAGE BODY mip_security AS
                              ,SQLERRM);
   END new_password;
   --
+  
+  /*
+    creates a new password for another user
+  */
+  PROCEDURE other_user_password(p_prty_id IN number,
+                                p_username IN VARCHAR2,
+                                p_password IN VARCHAR2) IS
+  BEGIN
+    INSERT INTO passwords
+      (prty_id
+      ,password_hash
+      ,created_on
+      ,created_by)
+    VALUES
+      (p_prty_id
+      ,get_hash(p_username
+               ,p_password)
+      ,SYSDATE
+      ,NULL);
+        
+  EXCEPTION
+    WHEN OTHERS THEN
+      raise_application_error(-20002
+                             ,SQLERRM);
+  END other_user_password;
+  --
+  
   --
   PROCEDURE redirect_on_expired_account(p_username IN VARCHAR2) IS
   BEGIN