NYBU#28784 RES: ondersteunen 'wachtrij' of 'opties'

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

RES/RES_PAC.SRC

@@ -438,7 +438,6 @@ AS
    -- checkdate is op zich redundant maar heel goed voor de performance
    PROCEDURE set_ruimtes_clean (checkdate IN DATE)
    AS
-      res_key     res_rsv_ruimte.res_reservering_key%TYPE;
       dirtlevel   res_rsv_ruimte.res_rsv_ruimte_dirtlevel%TYPE;
       contact_key res_rsv_ruimte.res_rsv_ruimte_contact_key%TYPE;
    BEGIN
@@ -450,8 +449,7 @@ AS
       loop
          set_ruimte_dirty (prsv_ruimte.res_rsv_ruimte_key);
          --
-         SELECT res_reservering_key,
-                res_rsv_ruimte_dirtlevel,
+         SELECT res_rsv_ruimte_dirtlevel,
                 res_rsv_ruimte_contact_key
            INTO res_key,
                 dirtlevel,
@@ -460,10 +458,9 @@ AS
           WHERE res_rsv_ruimte_key = prsv_ruimte.res_rsv_ruimte_key;
          --
          IF dirtlevel = 0 THEN
-           fac.putnotificationsrtprio (NULL, contact_key, 'RESCLN', res_key,
-                                       NULL, NULL, NULL, NULL, NULL, 2, NULL);
+           fac.trackaction ('RESCLN', prsv_ruimte.res_rsv_ruimte_key, contact_key, NULL, NULL);
          END IF;
-      -- TODO: Alle ruimtes met Dirty-bitje bekijken
+         -- TODO: Alle ruimtes met Dirty-bitje bekijken
       end loop;
    END;
    -- Moeten wijzelf misschien dirty worden