CREATE OR REPLACE PROCEDURE foro_responder_emt(seqp NUMBER) AS
temaw VARCHAR2(100);
preguntaw VARCHAR2(250);
titulow VARCHAR2(100);
seqtemaw NUMBER;
fechaw DATE;
usuariow VARCHAR2(50);
fechawfin DATE;
usuariowpreg VARCHAR2(50);
perfil 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;
if usuariowpreg = 'PORTAL' then
perfil:=usuariowpreg;
else
select categoria into perfil from info_portal_empleados where num_ident=usuariowpreg;
end if;
htp.print('