ASPN#83898 -- Aanpassingen in personen import

svn path=/Customer/trunk/; revision=64915

ASPN/aspn.sql

@@ -214,7 +214,9 @@ BEGIN
 
   -- 'EMAIL' betekent dat op basis van email wordt gematched.
   -- 'A' betekent altijd alle (andere/overige) werkplekken verwijderen
-  prs.update_perslid (p_import_key, 'EMAIL', 'A');
+  prs.update_perslid (p_import_key, 'EMAIL', 'A', 0);
+  
+  COMMIT;
 
   -- Verwijder personen die niet meer in de import voorkomen.
   FOR rec IN c_del
@@ -224,6 +226,8 @@ BEGIN
      END;
   END LOOP;
   
+  COMMIT;
+  
   -- Toekennen van de default autorisatiegroep en bestellers groep    
  FOR rec IN c1
  LOOP
@@ -233,6 +237,8 @@ BEGIN
         END;
      END LOOP;
      
+     COMMIT;
+     
  FOR rec IN c2
  LOOP
          BEGIN
@@ -240,6 +246,8 @@ BEGIN
                VALUES (rec.prs_perslid_key, 261);
         END;
      END LOOP;
+     
+     COMMIT;
 
 END aspn_update_perslid;
 /