FCLT#84940 Performance anonimiseer routines

svn path=/Database/trunk/; revision=65940

BEZ/BEZ_TRI.SRC

@@ -3,14 +3,22 @@
  *  $Id$
  */
 
+CREATE_TRIGGER(bez_t_bez_afspraak_B_I)
+BEFORE INSERT ON bez_afspraak
+FOR EACH ROW
+BEGIN
+   UPDATE_PRIMARY_KEY(bez_afspraak_key,bez_s_bez_afspraak_key);
+END;
+/
+
 CREATE_TRIGGER(bez_t_bez_afspraak_B_IU)
 BEFORE INSERT OR UPDATE ON bez_afspraak
 FOR EACH ROW
-DECLARE dummy NUMBER;
 BEGIN
-   UPDATE_PRIMARY_KEY(bez_afspraak_key,bez_s_bez_afspraak_key);
-
-   dummy := :new.bez_afspraak_key;
+    IF sys_context('USERENV', 'ACTION') = 'ANONYMIZE' OR
+       sys_context('USERENV', 'ACTION') = 'DBUPGRADE' THEN
+      RETURN;
+    END IF;
 
    IF :new.bez_afspraak_contact_key IS NULL AND :new.prs_perslid_key IS NOT NULL THEN
         :new.bez_afspraak_contact_key := :new.prs_perslid_key;
@@ -62,8 +70,8 @@ BEGIN
 END;
 /
 
-CREATE_TRIGGER(bez_t_bez_bezoekers_B_IU)
-BEFORE INSERT OR UPDATE ON bez_bezoekers
+CREATE_TRIGGER(bez_t_bez_bezoekers_B_I)
+BEFORE INSERT ON bez_bezoekers
 FOR EACH ROW
 BEGIN
    UPDATE_PRIMARY_KEY(bez_bezoekers_key,bez_s_bez_bezoekers_key);