CREATE OR REPLACE PROCEDURE foro_preguntar_emt(seq NUMBER) AS
temaw VARCHAR2(100);
fechaw DATE;
usuariow VARCHAR2(50);
fechawfin DATE;
usuariowpreg VARCHAR2(50);
perfil varchar2(50);
BEGIN
SELECT f.tema,f.fecha,f.usuario INTO temaw,fechaw,usuariow
FROM FORO_TEMA f
WHERE f.seq_tema = seq;
SELECT SYSDATE INTO fechawfin FROM sys.dual;
usuariowpreg := wwctx_api.get_user;
if usuariowpreg!='PORTAL' then
select categoria into perfil from info_portal_empleados where num_ident=usuariowpreg;
else
perfil:=usuariowpreg;
end if;
htp.print('