CREATE OR REPLACE PROCEDURE insertar_tema (tema VARCHAR2,submit VARCHAR2) AS
seq NUMBER(9);
USER VARCHAR2(50);
temp NUMBER;
temaw varchar2(100);
BEGIN
temaw:=tema;
if temaw is null then
form_tema;
else
temp:=0;
USER:=wwctx_api.get_user;
SELECT seq_tema.NEXTVAL INTO seq FROM dual;
SELECT COUNT(*) INTO temp FROM FORO_TEMA WHERE tema=temaw;
IF temp = 0 THEN
INSERT INTO FORO_TEMA VALUES(seq,temaw,SYSDATE,USER);
END IF;
muestra_temas;
end if;
EXCEPTION
WHEN OTHERS THEN
NULL;
END;
/