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

Modules/mip_parties.pck

@@ -280,15 +280,35 @@ CREATE OR REPLACE PACKAGE BODY mip_parties AS
       INTO rolecode;
     CLOSE c_userrole;
  
-    IF rolecode IS NOT NULL THEN
+   IF rolecode IS NOT NULL THEN
       RETURN TRUE;
     ELSE RETURN FALSE;
-    END IF;
+   END IF;
   EXCEPTION
     WHEN OTHERS THEN
     CLOSE c_userrole;
       RETURN FALSE;
   END check_user_role;
+/*
+  FUNCTION check_user_role(p_username IN VARCHAR2, p_role IN VARCHAR2) RETURN BOOLEAN IS
+    l_check_user_role VARCHAR2(80);
+
+  BEGIN
+    BEGIN
+      SELECT rt_code
+        INTO l_check_user_role
+        FROM party_roles
+       WHERE prty_id = get_user_id(p_username)
+         AND upper(rt_code) = upper(p_role);
+    EXCEPTION
+      WHEN no_data_found THEN
+        RETURN FALSE;
+      WHEN OTHERS THEN
+        RETURN FALSE;
+    END;
+    RETURN TRUE;
+  END check_user_role;  */
+
   --
 
   /** get the password created date for the given username and password
@@ -954,7 +974,7 @@ CREATE OR REPLACE PACKAGE BODY mip_parties AS
       WHERE come.id = cur_come.come_id;
     END LOOP;
     
-    --delete addresses
+    --delete addresses (from the party, we can't actually delete the address as it might be used by another party)
     FOR cur_addr IN (SELECT * FROM party_addresses paddr WHERE paddr.prty_id = p_prty_id) LOOP
       --delete the address roles
       DELETE FROM party_address_roles paddr_role