CREATE OR REPLACE PROCEDURE home( p_syop_id IN VARCHAR2 DEFAULT NULL , p_username IN VARCHAR2 DEFAULT NULL , p_password IN VARCHAR2 DEFAULT NULL , p_action IN VARCHAR2 DEFAULT NULL ) IS -- -- Application home page -- g_header CONSTANT VARCHAR2(160) := '$Header: $'; g_revision CONSTANT VARCHAR2(160) := '$Revision: $'; -- v_first_row BOOLEAN := TRUE; -- v_logged_in BOOLEAN; l_cookie owa_cookie.cookie; -- FUNCTION breadcrumb (p_syop_id system_options.syop_id%TYPE) RETURN VARCHAR2 IS -- v_parent_syop_id system_options.syop_id_the_parent_of%TYPE; v_name system_options.NAME%TYPE; v_return VARCHAR2(4000); -- BEGIN -- SELECT syop_id_the_parent_of ,DECODE(syop.mtxt_text_number, NULL, syop.name, caco_utilities.get_module_text(syop.mtxt_text_number) ) AS NAME INTO v_parent_syop_id ,v_name FROM system_options syop WHERE syop_id = p_syop_id; -- IF v_parent_syop_id IS NULL THEN v_return := htf.anchor(curl => 'home', ctext => 'Home') ||'>'|| htf.anchor(curl => 'home?p_syop_id='||p_syop_id, ctext => v_name); ELSE v_return := breadcrumb(v_parent_syop_id) || '>' || htf.anchor(curl => '#', ctext => v_name); END IF; -- RETURN v_return; -- EXCEPTION WHEN no_data_found THEN RETURN(NULL); END breadcrumb; -- FUNCTION user_logged_in RETURN BOOLEAN IS -- l_return BOOLEAN := FALSE; -- BEGIN -- IF caco_utilities.get_syus_id <> caco_utilities.get_system_user THEN -- l_return := TRUE; -- END IF; -- RETURN l_return; -- END user_logged_in; -- PROCEDURE html_header IS BEGIN -- htp.p(''); htp.comment(ctext => 'Copyright 2009 GL Industrial Services'); -- END html_header; -- PROCEDURE html_footer IS BEGIN -- htp.p(''); htp.p(''); htp.p(''); htp.p(''); -- END html_footer; -- PROCEDURE show_logon_form IS BEGIN -- -- Output opening tags -- html_header; -- -- Not logged in, lets just do without the menu -- IF p_username IS NOT NULL THEN -- caco_security.process_logon(p_username => p_username ,p_password => p_password ,h_href => 'home' ,p_login_button => 'Login' ); END IF; -- htp.p('E.ON Földgáz Trade Zrt - Login '); htp.p(' '); htp.p('
'); htp.p('

'); v_logged_in := caco_security.security_check('home'); htp.p('

E.ON Földgáz Trade Zrt.

'); -- END show_logon_form; -- BEGIN -- -- Look for client certificate -- IF NOT user_logged_in THEN -- -- Not logged in -- IF owa_util.get_cgi_env('SSL_CLIENT_CERT') IS NOT NULL THEN -- -- have a client certificate, process client certificate logon -- caco_security.process_certificate_logon; -- IF NOT user_logged_in THEN -- show_logon_form; -- ELSE -- -- User authenticated, show the home page -- home; -- END IF; -- ELSE -- -- No certificate -- show_logon_form; -- END IF; -- ELSE -- -- Logged in, now call standard stuff -- html_header; htp.p(''); htp.p(''); -- htp.p(''||caco_utilities.get_system_name||''); -- htp.p(''); htp.p(''); -- BEGIN htp.print(caco_system.menu(p_syop_id => p_syop_id)); EXCEPTION WHEN OTHERS THEN htp.print('Unable to generate menu - error ' || SQLERRM); END; -- htp.p(''); --breadcrumb -- -- Homepage image -- lihp_home_page.homepage_showimage; -- -- Print out the hotlinks -- lihp_home_page.hotlinks; -- -- Print out Messages -- lihp_home_page.bulletins; -- -- Edit homepage links -- lihp_home_page.edit_homepage; -- htp.p(''); -- END IF; -- html_footer; -- END home; /