git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@50874 248e525c-4dfb-0310-94bc-949c084e9493
This commit is contained in:
andrew.gilmore
226
Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/amadw025$.bdy
Normal file
226
Data/BulkLoad/EFT/Nominations/Changes/Aug_2010/amadw025$.bdy
Normal file
@@ -0,0 +1,226 @@
|
||||
create or replace package body amadw025$ is
|
||||
private_ModuleRef WSGOC.MODULE_REF;
|
||||
|
||||
|
||||
procedure CreateStartupJavaScript;
|
||||
--------------------------------------------------------------------------------
|
||||
-- Name: amadw025$.Startup
|
||||
--
|
||||
-- Description: This procedure is the entry point for the 'amadw025$'
|
||||
-- module.
|
||||
--
|
||||
-- Parameters: None
|
||||
--
|
||||
--------------------------------------------------------------------------------
|
||||
procedure Startup
|
||||
is
|
||||
begin
|
||||
if not caco_security.security_check('amadw025$') then
|
||||
return;
|
||||
end if;
|
||||
|
||||
WSGL.RegisterURL('amadw025$.startup');
|
||||
if WSGL.NotLowerCase then
|
||||
return;
|
||||
end if;
|
||||
WSGL.StoreURLLink(0, WSGL.MsgGetText(21,WSGLM.CAP021_TOP_LEVEL));
|
||||
amadw025$appa.startup(
|
||||
Z_DIRECT_CALL => TRUE
|
||||
);
|
||||
|
||||
exception
|
||||
when others then
|
||||
WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '',
|
||||
'', 'amadw025$.Startup');
|
||||
end;
|
||||
--------------------------------------------------------------------------------
|
||||
-- Name: amadw025$.firstpage
|
||||
--
|
||||
-- Description: This procedure creates the first page for the 'amadw025$'
|
||||
-- module.
|
||||
--
|
||||
-- Parameters: Z_DIRECT_CALL
|
||||
|
||||
--
|
||||
--------------------------------------------------------------------------------
|
||||
procedure FirstPage(Z_DIRECT_CALL in boolean
|
||||
|
||||
) is
|
||||
begin
|
||||
if not caco_security.security_check('amadw025$') then
|
||||
return;
|
||||
end if;
|
||||
|
||||
WSGL.OpenPageHead('');
|
||||
WSGL.METATag;
|
||||
WSGL.ClosePageHead;
|
||||
WSGL.OpenPageBody(FALSE, p_attributes=>'');
|
||||
|
||||
CreateStartupJavaScript;
|
||||
|
||||
WSGL.DefaultPageCaption('', 1);
|
||||
htp.formOpen(curl => 'ActionItem', cattributes => 'NAME="SP$AIForm"');
|
||||
WSGL.NavLinks(WSGL.MENU_LONG, WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT), 0, 'amadw025$.showabout', '_top', p_output_line=>FALSE);
|
||||
WSGL.NavLinks;
|
||||
htp.formClose;
|
||||
|
||||
WSGL.ClosePageBody;
|
||||
|
||||
exception
|
||||
when others then
|
||||
WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '',
|
||||
'', 'amadw025$.FirstPage');
|
||||
end;
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Name: amadw025$.showabout
|
||||
--
|
||||
-- Description: This procedure is used to display an 'About' page for the
|
||||
-- 'amadw025$' module.
|
||||
--
|
||||
--------------------------------------------------------------------------------
|
||||
procedure showabout is
|
||||
l_usr varchar2(255) := null;
|
||||
begin
|
||||
if not caco_security.security_check('amadw025$') then
|
||||
return;
|
||||
end if;
|
||||
l_usr := caco_security.get_user;
|
||||
|
||||
WSGL.RegisterURL('amadw025$.showabout');
|
||||
if WSGL.NotLowerCase then
|
||||
return;
|
||||
end if;
|
||||
|
||||
WSGL.OpenPageHead(WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT)||' ');
|
||||
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)||' ');
|
||||
|
||||
|
||||
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, 'Access Manager Framework', 'AMADW025', l_usr);
|
||||
|
||||
|
||||
WSGL.ClosePageBody;
|
||||
|
||||
exception
|
||||
when others then
|
||||
WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '',
|
||||
'', 'amadw025$.ShowAbout');
|
||||
end;
|
||||
--------------------------------------------------------------------------------
|
||||
-- Name: amadw025$.TemplateHeader
|
||||
--
|
||||
-- Description:
|
||||
--
|
||||
--------------------------------------------------------------------------------
|
||||
procedure TemplateHeader(Z_DIRECT_CALL in boolean,
|
||||
Z_TEMPLATE_ID in number) is
|
||||
begin
|
||||
if not caco_security.security_check('amadw025$') then
|
||||
return;
|
||||
end if;
|
||||
|
||||
if Z_TEMPLATE_ID = 1 then
|
||||
-- Template defined in \\loordv01\framework\css2\css_content.htm
|
||||
htp.p('<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
|
||||
<link rel=stylesheet href="caco_system.css?p_type=content" >
|
||||
');
|
||||
elsif Z_TEMPLATE_ID = 2 then
|
||||
-- Template defined in \\loordv01\framework\css2\css_about.htm
|
||||
htp.p('<title></title> <link rel="stylesheet" href="wwv_flow_file_mgr.get_file?p_security_group_id=11019802792885519&p_fname=common.css" type="text/css" /> <script src="/i/javascript/apex_ns_3_1.js" type="text/javascript"></script> <script src="/i/javascript/apex_3_1.js" type="text/javascript"></script> <script src="/i/javascript/apex_get_3_1.js" type="text/javascript"></script> <script src="/i/javascript/apex_builder.js" type="text/javascript"></script> <script type="text/javascript"> <!-- /*Global JS Variables*/ var htmldb_Img_Dir = "/i/"; //--> </script> <link rel="stylesheet" href="/i/css/apex_3_1.css" type="text/css" /> <!--[if IE]><link rel="stylesheet" href="/i/css/apex_ie_3_1.css" type="text/css" /><![endif]--> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252" />');
|
||||
elsif Z_TEMPLATE_ID = 3 then
|
||||
-- Template defined in \\loordv01\framework\css2\css_query.htm
|
||||
htp.p('<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
|
||||
<link rel=stylesheet href="caco_system.css?p_type=query" >
|
||||
');
|
||||
elsif Z_TEMPLATE_ID = 4 then
|
||||
-- Template defined in \\loordv01\framework\css2\css_view.htm
|
||||
htp.p('<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
|
||||
<link rel=stylesheet href="caco_system.css?p_type=view" >
|
||||
');
|
||||
elsif Z_TEMPLATE_ID = 5 then
|
||||
-- Template defined in \\loordv01\framework\css2\css_insert.htm
|
||||
htp.p('<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
|
||||
<link rel=stylesheet href="caco_system.css?p_type=insert" >
|
||||
');
|
||||
elsif Z_TEMPLATE_ID = 6 then
|
||||
-- Template defined in \\loordv01\framework\css2\css_recordlist.htm
|
||||
htp.p('<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
|
||||
<link rel=stylesheet href="caco_system.css?p_type=recordlist" >
|
||||
');
|
||||
elsif Z_TEMPLATE_ID = 7 then
|
||||
-- Template defined in \\loordv01\framework\css2\css_lov.htm
|
||||
htp.p('<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
|
||||
<link rel=stylesheet href="caco_system.css?p_type=lov" >
|
||||
');
|
||||
elsif Z_TEMPLATE_ID = 8 then
|
||||
-- Template defined in \\loordv01\framework\css2\css_text.htm
|
||||
htp.p('<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
|
||||
<link rel=stylesheet href="caco_system.css?p_type=text" >
|
||||
');
|
||||
end if;
|
||||
|
||||
exception
|
||||
when others then
|
||||
WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '',
|
||||
'', 'amadw025$.TemplateHeader');
|
||||
end;
|
||||
--------------------------------------------------------------------------------
|
||||
-- Name: amadw025$.GetRef
|
||||
--
|
||||
-- Description: Returns a handle to the display data for the
|
||||
-- 'amadw025$' module.
|
||||
-- If the display object does not exist then it creates it first.
|
||||
--
|
||||
-- Parameters:
|
||||
--
|
||||
--------------------------------------------------------------------------------
|
||||
|
||||
function GetRef return WSGOC.MODULE_REF
|
||||
is
|
||||
begin
|
||||
if ( WSGOC.Is_Null(private_ModuleRef)) then
|
||||
private_ModuleRef := WSGOC.Module
|
||||
( pShortName => 'amadw025$'
|
||||
, pFirstTitle => ''
|
||||
);
|
||||
end if;
|
||||
return private_ModuleRef;
|
||||
exception
|
||||
when others then
|
||||
WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '',
|
||||
'', 'amadw025$.GetRef');
|
||||
raise;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Name: amadw025$.CreateStartupJavaScript
|
||||
--
|
||||
-- Description:
|
||||
--
|
||||
-- Parameters:
|
||||
--
|
||||
--------------------------------------------------------------------------------
|
||||
procedure CreateStartupJavaScript is
|
||||
begin
|
||||
htp.p(WSGJSL.OpenScript);
|
||||
htp.p('var FormType = "Startup";');
|
||||
htp.p(WSGJSL.CloseScript);
|
||||
end;
|
||||
end;
|
||||
/
|
||||
Reference in New Issue
Block a user