CREATE OR REPLACE PROCEDURE foro_responder(seqp NUMBER) AS
temaw VARCHAR2(100);
preguntaw VARCHAR2(250);
titulow VARCHAR2(100);
seqtemaw NUMBER;
fechaw DATE;
usuariow VARCHAR2(50);
fechawfin DATE;
usuariowpreg VARCHAR2(50);
BEGIN
SELECT DISTINCT t.seq_tema,t.tema,p.pregunta,p.fecha,p.usuario,p.titulo
INTO seqtemaw,temaw,preguntaw,fechaw,usuariow,titulow
FROM FORO_PREGUNTAS p,FORO_TEMA t WHERE p.seq_tema = t.seq_tema AND p.seq_pregunta=seqp;
SELECT SYSDATE INTO fechawfin FROM sys.dual;
usuariowpreg := wwctx_api.get_user;
htp.print('