RWSN#55808 M2M
svn path=/Customer/trunk/; revision=45020
This commit is contained in:
@@ -27587,7 +27587,7 @@ BEGIN
|
||||
v_errormsg := 'Fout bepalen E-mail';
|
||||
v_email := '';
|
||||
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
|
||||
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?
|
||||
|
||||
Reference in New Issue
Block a user