create or replace package body efnow120$ is private_ModuleRef WSGOC.MODULE_REF; procedure CreateStartupJavaScript; -------------------------------------------------------------------------------- -- Name: efnow120$.Startup -- -- Description: This procedure is the entry point for the 'efnow120$' -- module (#View Commercial Confirmations#2480#). -- -- Parameters: None -- -------------------------------------------------------------------------------- procedure Startup is begin if not caco_security.security_check('efnow120$') then return; end if; WSGL.RegisterURL('efnow120$.startup'); if WSGL.NotLowerCase then return; end if; WSGL.StoreURLLink(0, '#View Commercial Confirmations#2480#'); efnow120$conf.startup( Z_DIRECT_CALL => TRUE ); exception when others then WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#View Commercial Confirmations#2480#', '', 'efnow120$.Startup'); end; -------------------------------------------------------------------------------- -- Name: efnow120$.firstpage -- -- Description: This procedure creates the first page for the 'efnow120$' -- module (#View Commercial Confirmations#2480#). -- -- Parameters: Z_DIRECT_CALL -- -------------------------------------------------------------------------------- procedure FirstPage(Z_DIRECT_CALL in boolean ) is begin if not caco_security.security_check('efnow120$') then return; end if; WSGL.OpenPageHead('#View Commercial Confirmations#2480#'); WSGL.METATag; WSGL.ClosePageHead; WSGL.OpenPageBody(FALSE, p_attributes=>''); CreateStartupJavaScript; WSGL.DefaultPageCaption('#View Commercial Confirmations#2480#', 1); htp.formOpen(curl => 'ActionItem', cattributes => 'NAME="SP$AIForm"'); WSGL.NavLinks(WSGL.MENU_LONG, WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT), 0, 'efnow120$.showabout', '_top', p_output_line=>FALSE); WSGL.NavLinks; htp.formClose; WSGL.ClosePageBody; exception when others then WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#View Commercial Confirmations#2480#', '', 'efnow120$.FirstPage'); end; -------------------------------------------------------------------------------- -- Name: efnow120$.showabout -- -- Description: This procedure is used to display an 'About' page for the -- 'efnow120$' module (#View Commercial Confirmations#2480#). -- -------------------------------------------------------------------------------- procedure showabout is l_usr varchar2(255) := null; begin if not caco_security.security_check('efnow120$') then return; end if; l_usr := caco_security.get_user; WSGL.RegisterURL('efnow120$.showabout'); if WSGL.NotLowerCase then return; end if; WSGL.OpenPageHead(WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT)||' #View Commercial Confirmations#2480#'); WSGL.METATag; TemplateHeader(TRUE,2); WSGL.ClosePageHead; WSGL.OpenPageBody(FALSE, p_attributes=>''); htp.p(caco_system.menu); WSGL.DefaultPageCaption(WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT)||' #View Commercial Confirmations#2480#'); htp.para; htp.p(' $Revision: 1.4 $'); htp.para; htp.para; htp.p(WSGL.MsgGetText(108,WSGLM.DSP108_GENERATED_BY, 'PL/SQL Web Generator', '10.1.2.6.18')); htp.para; WSGL.Info(FALSE, 'Nominations', 'EFNOW120', l_usr); htp.p(caco_system.footer); WSGL.ClosePageBody; exception when others then WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#View Commercial Confirmations#2480#', '', 'efnow120$.ShowAbout'); end; -------------------------------------------------------------------------------- -- Name: efnow120$.TemplateHeader -- -- Description: -- -------------------------------------------------------------------------------- procedure TemplateHeader(Z_DIRECT_CALL in boolean, Z_TEMPLATE_ID in number) is begin if not caco_security.security_check('efnow120$') then return; end if; if Z_TEMPLATE_ID = 1 then -- Template defined in \\loordv01\framework\css2\css_content.htm htp.p(' '); elsif Z_TEMPLATE_ID = 2 then -- Template defined in \\loordv01\framework\css2\css_about.htm htp.p('