AAAH#70192 -- Mailadressen vervangen voor bootsapotheek.nl

svn path=/Customer/; revision=54570

onces/AA/AAAH/AAAH#70192.sql

@@ -0,0 +1,83 @@
+--
+-- $Id$
+--
+-- Script om alle oude emailadressen van Boots-apotheken om te zetten naar nieuwe domeinnaam @bootsapotheek.nl
+-- Aanpassen binnen: Personen, Locaties, Gebouwen, Gebouw-kenmerkvelden (Contactpersoon e-mail, 2e Contactpersoon e-mail)
+
+DEFINE thisfile = 'AAAH#70192.SQL'
+DEFINE dbuser   = 'AAAH'
+
+SET ECHO ON
+SET DEFINE ON
+COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
+COLUMN fcltcusterr NEW_VALUE fcltcusterr NOPRINT;
+WHENEVER SQLERROR CONTINUE;
+SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
+SPOOL &fcltlogfile
+WHENEVER SQLERROR EXIT;
+SELECT adm.checkscriptcust('&dbuser') AS fcltcusterr FROM DUAL;
+WHENEVER SQLERROR CONTINUE;
+PROMPT &fcltcusterr
+SET DEFINE OFF
+
+------ payload begin ------
+
+-- Op perslidniveau
+UPDATE prs_perslid
+   SET prs_perslid_email = SUBSTR (prs_perslid_email, 1, INSTR (prs_perslid_email, '@')) || 'bootsapotheek.nl'
+ WHERE prs_perslid_key IN
+        (
+        SELECT p.prs_perslid_key
+          FROM prs_perslid p
+         WHERE (   INSTR (p.prs_perslid_email, '@nl.boots.com') > 0 OR INSTR (p.prs_perslid_email, '@boots.eu') > 0)
+         )       
+      ;
+
+-- Op locatieniveau
+UPDATE alg_locatie
+   SET alg_locatie_email = SUBSTR (alg_locatie_email, 1, INSTR (alg_locatie_email, '@')) || 'bootsapotheek.nl'
+ WHERE alg_locatie_key IN 
+        (
+        SELECT l.alg_locatie_key
+          FROM alg_locatie l
+         WHERE (   INSTR (l.alg_locatie_email, '@nl.boots.com') > 0 OR INSTR (l.alg_locatie_email, '@boots.eu') > 0)
+         )       
+      ;
+
+-- Op gebouwniveau
+UPDATE alg_gebouw
+   SET alg_gebouw_email = SUBSTR (alg_gebouw_email, 1, INSTR (alg_gebouw_email, '@')) || 'bootsapotheek.nl'
+ WHERE alg_gebouw_key IN 
+        (
+        SELECT g.alg_gebouw_key
+          FROM alg_gebouw g
+         WHERE (   INSTR (g.alg_gebouw_email, '@nl.boots.com') > 0 OR INSTR (g.alg_gebouw_email, '@boots.eu') > 0)
+         )       
+      ;
+
+-- Op gebouwniveau - Kenmerkvelden
+UPDATE alg_onrgoedkenmerk
+SET alg_onrgoedkenmerk_waarde = SUBSTR (alg_onrgoedkenmerk_waarde, 1, INSTR (alg_onrgoedkenmerk_waarde, '@')) || 'bootsapotheek.nl'
+WHERE alg_onrgoedkenmerk_key IN 
+       ( SELECT kw.alg_onrgoedkenmerk_key
+           FROM alg_onrgoedkenmerk kw, alg_gebouw g
+          WHERE kw.alg_kenmerk_key IN (1060, 1085)
+            AND kw.alg_onrgoedkenmerk_verwijder IS NULL AND kw.alg_onrgoed_niveau = 'G'
+            AND kw.alg_onrgoed_key = g.alg_gebouw_key
+            AND (   INSTR (kw.alg_onrgoedkenmerk_waarde, '@nl.boots.com') > 0
+                    OR
+                    INSTR (kw.alg_onrgoedkenmerk_waarde, '@boots.eu') > 0
+                    )
+         ) ;      
+
+------ payload end   ------
+
+SET DEFINE OFF
+BEGIN adm.systrackscriptId ('$Id$', 0); END;
+/
+
+COMMIT;
+SET ECHO OFF
+SPOOL OFF
+SET DEFINE ON
+PROMPT Logfile of this upgrade is: &fcltlogfile