CREATE OR REPLACE PROCEDURE insertar_pregunta(titular VARCHAR2,seq_tema NUMBER,fechawfin VARCHAR2,pregunta VARCHAR2, enviar VARCHAR2) AS
seq_preg NUMBER(9);
usuario VARCHAR2(60);
fecha_fin DATE;
Temp NUMBER;
Seq number;
pre varchar2(250);
tit varchar2(100);
BEGIN
pre:=pregunta;
tit:=titular;
if pre is null then
seq:=seq_tema;
foro_preguntar_emt(seq);
elsif tit is null then
seq:=seq_tema;
foro_preguntar_emt(seq);
else
Temp :=0;
fecha_fin  := TO_DATE(fechawfin,'dd/mm/yyyy');
usuario := wwctx_api.get_user;
SELECT seq_pregunta.NEXTVAL INTO seq_preg FROM dual;
SELECT COUNT(*) INTO temp FROM FORO_PREGUNTAS WHERE pregunta=pre AND titulo = tit AND usuario=usuario;
IF Temp= 0 THEN
INSERT INTO FORO_PREGUNTAS VALUES(seq_tema,seq_preg,TO_DATE(SYSDATE,'DD/MM/YYYY'),usuario,tit,pre,fecha_fin);
END IF;
muestra_preguntas_emt(seq_tema);
end if;
EXCEPTION
 WHEN OTHERS THEN
  NULL;
END;
/