KFSG#69746 DAILY/Schonen bezoekersgegevens

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

KFSG/kfsg.sql

@@ -22,6 +22,8 @@ AS
 
     PROCEDURE annuleer_werkplek;
 
+    PROCEDURE schonen_bezoekers;
+
     FUNCTION get_kenmerk (p_module        IN VARCHAR2,
                           p_kenmerk_key   IN NUMBER,
                           p_link_key      IN NUMBER)
@@ -132,6 +134,14 @@ AS
         COMMIT;
     END;
 
+    -- KFSG#69746: Schonen bezoekersgegevens ouder dan 90 dagen (tenminste als
+    --             anonymize_period op 90 staat)!
+    PROCEDURE schonen_bezoekers
+    AS
+    BEGIN
+        ANO.anonymizebez (SYSDATE - (10 * 365), SYSDATE - fac.getsetting ('anonymize_period'));
+    END;
+
     FUNCTION get_kenmerk (p_module        IN VARCHAR2,
                           p_kenmerk_key   IN NUMBER,
                           p_link_key      IN NUMBER)
@@ -311,6 +321,9 @@ AS
 BEGIN
    KFSG.set_werkplek();
    KFSG.annuleer_werkplek();
+
+   -- KFSG#69746: Schonen bezoekersgegevens ouder dan 90 dagen!
+   KFSG.schonen_bezoekers();
 END;
 /