CREATE OR REPLACE PROCEDURE eliminar_aviso (seq NUMBER,usuario VARCHAR2) IS
destinatarios VARCHAR2(512);
cont NUMBER;
LONG NUMBER;
temp VARCHAR2(512);
aux VARCHAR2(250);
usuariow VARCHAR2(50);
alm VARCHAR2(1024);
BEGIN
htp.print('
Redireccionado
');
alm:=NULL;
usuariow:=usuario;
temp:=NULL;
cont :=1;
SELECT destinatario INTO destinatarios FROM AVISOS_EMT WHERE seq_avisos=seq;
LONG := LENGTH(destinatarios);
WHILE cont<=LONG LOOP
IF ((SUBSTR(destinatarios,cont,1)=',') OR (SUBSTR(destinatarios,cont,1)='.') OR (SUBSTR(destinatarios,cont,1)=';')
OR (SUBSTR(destinatarios,cont,1)=' '))THEN
IF (UPPER(aux)=usuariow) THEN
NULL;
ELSE
alm:=alm||UPPER(aux)||'.';
END IF;
aux:=NULL;
cont := cont+1;
temp:=1;
ELSE
aux:=aux||SUBSTR(destinatarios,cont,1);
cont := cont+1;
END IF;
END LOOP;
UPDATE AVISOS_EMT SET destinatario=alm WHERE seq_avisos=seq;
htp.print('');
END;
/