Procedure explaination

[oracle newbie]

create or replace PROCEDURE draw_welcome_po rtlet IS theuser VARCHAR2(30) := portal.wwctx_ap i.get_user;
v_forename VARCHAR2(50);

CURSOR user_cur IS
SELECT initcap(surname || ' ' || forename)
FROM nyp_libportal.l ibrary_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_ap i.no_session_ex ception THEN
htp.p('Error: Session not initiated.');
WHEN others THEN
NULL;
END;


Hi,

What is the above procedure coding about?

[debasisdas]

this procedure is used for web programing.

and please do not post code written by others, of which u have no idea.

even if i explain the same to u , u will get nothing out of it.