31
create or replace PROCEDURE draw_welcome_portlet IS theuser VARCHAR2(30) := portal.wwctx_api.get_user;
v_forename VARCHAR2(50);
CURSOR user_cur IS
SELECT initcap(surname || ' ' || forename)
FROM nyp_libportal.library_user
WHERE UPPER(user_id) = UPPER(theuser);
BEGIN
IF theuser <> 'PUBLIC' THEN
OPEN user_cur;
LOOP
FETCH user_cur
INTO v_forename;
EXIT
WHEN user_cur % NOTFOUND;
END LOOP;
CLOSE user_cur;
htp.p('<SPAN STYLE="FONT-SIZE: 9pt; FONT-FAMILY: Verdana"><B> Welcome ' || v_forename || '</B></SPAN>');
ELSE
htp.p('');
END IF;
EXCEPTION
WHEN portal.wwctx_api.no_session_exception THEN
htp.p('Error: Session not initiated.');
WHEN others THEN
NULL;
END;
Hi,
What is the above procedure coding about?
