Updated to allow proper user status login checking.

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

Modules/mip_parties.pck

@@ -12,6 +12,15 @@ CREATE OR REPLACE PACKAGE mip_parties AS
     RETURN NUMBER;
   FUNCTION get_user_role(p_username IN VARCHAR2)
     return varchar2;
+  --
+  /** get the password created date for the given username and password
+  
+  %return DATE the date the password was created for authenticated username and password combination
+
+  */
+  FUNCTION get_user_password_created(p_username IN VARCHAR2
+                            ,p_password IN VARCHAR2) RETURN DATE;
+  --
   FUNCTION has_supplier(p_username IN VARCHAR2, p_supplierid IN VARCHAR) return boolean;
   PROCEDURE add_address(p_address addresses%ROWTYPE);
   PROCEDURE add_partyaddress(p_addr_code IN VARCHAR2, p_prty_id IN INTEGER);
@@ -78,8 +87,35 @@ CREATE OR REPLACE PACKAGE BODY mip_parties AS
     when others then return null;
   end get_user_role;
 
+  --
+  /** get the password created date for the given username and password
   
+  %return DATE the date the password was created for authenticated username and password combination
 
+  */
+  FUNCTION get_user_password_created(p_username IN VARCHAR2
+                            ,p_password IN VARCHAR2) RETURN DATE AS
+    l_password_created_on DATE;
+  BEGIN
+    SELECT created_on
+      INTO l_password_created_on
+      FROM (SELECT pwd.prty_id
+                  ,pwd.password_hash
+                  ,MAX(pwd.created_on) over(PARTITION BY pwd.prty_id) AS latest_pwd_date
+                  ,pwd.created_on
+              FROM passwords pwd
+                  ,parties   prty
+             WHERE upper(prty.username) = upper(p_username)
+               AND pwd.prty_id = prty.id) pwd
+     WHERE pwd.created_on = pwd.latest_pwd_date
+       AND pwd.password_hash = mip_security.get_hash(p_username
+                                       ,p_password);
+                                       
+     RETURN l_password_created_on;
+   END get_user_password_created;
+  --
+ 
+  --
   PROCEDURE add_address(p_address addresses%ROWTYPE) AS
     --
   BEGIN