FCLT#79342 Bij fallback voor unknown user ook de originele organisator meegeven in de RESNEW tracking

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

EXC/EXC_PAC.SRC

@@ -672,6 +672,8 @@ AS
         v_kostenplaats_key    NUMBER (10);
         v_status_fo_key       NUMBER (10);
         v_discipline_key      NUMBER (10);
+        v_organizer           VARCHAR2(200);
+        v_trackingnew         VARCHAR2(1000);
 
         -- ANNULEREN
         -- Eerst alle reserveringen waar geen appointments meer bij zijn annuleren, zodat
@@ -1504,17 +1506,29 @@ AS
                 v_reservering_key := NULL;
                 v_rsv_ruimte_volgnr := 1;
                 v_rsv_ruimte_key := NULL;
+                v_trackingnew := NULL;
 
                 v_errorhint :=
                        'Host '
                     || rec.organizer
                     || ' onbekend, of meer personen met dit e-mailadres! Geen boeking.';
 
+                IF (rec.organizer LIKE '##%@%##') -- _MSGRAPH_FALLBACK_UNKNOWN
+                THEN
+                    SELECT prs_perslid_email
+                      INTO v_organizer
+                      FROM prs_v_aanwezigperslid
+                     WHERE prs_perslid_oslogin = '_MSGRAPH_FALLBACK_UNKNOWN';
+                    v_trackingnew := REPLACE(lcl.l('lcl_res_is_resnew_exchange'), '{0}', SUBSTR(rec.organizer, 3, LENGTH(rec.organizer) - 4));
+                ELSE
+                    v_organizer := rec.organizer;
+                END IF;
+
                 -- Kennen we deze persoon eigenlijk wel?
                 SELECT COUNT (*)
                   INTO v_count
                   FROM prs_v_aanwezigperslid p
-                 WHERE UPPER (p.prs_perslid_email) = UPPER (rec.organizer);
+                 WHERE UPPER (p.prs_perslid_email) = UPPER (v_organizer);
 
                 -- Niet bekend, of niet eenduidig --> jammer dan.
                 IF (v_count != 1)
@@ -1531,7 +1545,7 @@ AS
                       INTO v_perslid_key, v_kostenplaats_key
                       FROM prs_v_aanwezigperslid p, prs_v_aanwezigafdeling a
                      WHERE     UPPER (p.prs_perslid_email) =
-                               UPPER (rec.organizer)
+                               UPPER (v_organizer)
                            AND a.prs_afdeling_key = p.prs_afdeling_key;
 
                     v_errorhint := 'Opstelling ophalen';
@@ -1722,7 +1736,7 @@ AS
                                      v_rsv_ruimte_key,
                                      NULL,
                                      SYSDATE,
-                                     NULL);
+                                     v_trackingnew);
 
                     -- Is er iets dirty?
                     res.set_ruimte_dirty (v_rsv_ruimte_key);