CREATE OR REPLACE PROCEDURE insertar_respuesta(seqp NUMBER,respuesta VARCHAR2, enviar VARCHAR2) AS
seq_tema NUMBER(9);
seq_pre NUMBER(9);
seq_resp NUMBER(9);
usuario VARCHAR2(60);
resp VARCHAR2(250);
fecha_fin DATE;
cont NUMBER;
BEGIN
resp:=respuesta;
IF resp IS NULL THEN
foro_responder_emt(seqp);
ELSE
cont:=0;
usuario := wwctx_api.get_user;
SELECT seq_respuesta.NEXTVAL INTO seq_resp FROM dual;
SELECT seq_tema INTO seq_tema FROM FORO_PREGUNTAS WHERE seq_pregunta=seqp;
SELECT COUNT(*) INTO cont FROM FORO_RESPUESTAS WHERE respuesta=resp AND usuario=usuario;
--Htp.print(cont||' usuario : '||usuario||' respuesta '||respuesta);
IF cont=0 THEN
INSERT INTO FORO_RESPUESTAS VALUES(seq_tema,seqp,seq_resp,TO_DATE(SYSDATE,'DD/MM/YYYY'),usuario,resp,NULL);
END IF;
muestra_respuestas_emt(seq_tema,seqp);
END IF;
EXCEPTION
 WHEN OTHERS THEN
  NULL;
END;
/