RWSN#55808 M2M

svn path=/Customer/trunk/; revision=45020
This commit is contained in:
Maarten van der Heide
2019-11-25 15:54:10 +00:00
parent b6fa0ca67d
commit 2316c8e8d4

View File

@@ -27587,7 +27587,7 @@ BEGIN
v_errormsg := 'Fout bepalen E-mail'; v_errormsg := 'Fout bepalen E-mail';
v_email := ''; v_email := '';
v_bodypart := SUBSTR (pbody, 1, 4000); v_bodypart := SUBSTR (pbody, 1, 4000);
WHILE v_email = '' AND INSTR (v_bodypart, '<') > 0 WHILE v_email IS NULL AND INSTR (v_bodypart, '<') > 0
LOOP LOOP
v_bodypart := SUBSTR (v_bodypart, INSTR (v_bodypart, '<')); v_bodypart := SUBSTR (v_bodypart, INSTR (v_bodypart, '<'));
IF INSTR (v_bodypart, '>') > 0 AND INSTR (v_bodypart, '>') < INSTR (REPLACE (REPLACE (v_bodypart, CHR (13), '#'), CHR (10), '#') || '#', '#') -- Staan < en > op dezelfde regel? IF INSTR (v_bodypart, '>') > 0 AND INSTR (v_bodypart, '>') < INSTR (REPLACE (REPLACE (v_bodypart, CHR (13), '#'), CHR (10), '#') || '#', '#') -- Staan < en > op dezelfde regel?