260 lines
8.4 KiB
Plaintext
260 lines
8.4 KiB
Plaintext
create or replace package body eft_nom.tamaw060$ is
|
|
private_ModuleRef WSGOC.MODULE_REF;
|
|
|
|
|
|
procedure CreateStartupJavaScript;
|
|
FUNCTION GetProfName ( p_sypr_id IN system_profiles.sypr_id%TYPE ) RETURN VARCHAR2 IS
|
|
|
|
-- GetProfName
|
|
--
|
|
--
|
|
|
|
|
|
|
|
--
|
|
CURSOR cur_sypr ( p_sypr_id IN system_profiles.sypr_id%TYPE ) IS
|
|
SELECT sypr.name
|
|
FROM system_profiles sypr
|
|
WHERE sypr.sypr_id = p_sypr_id;
|
|
--
|
|
v_return VARCHAR2(100);
|
|
--
|
|
BEGIN
|
|
--
|
|
OPEN cur_sypr(p_sypr_id);
|
|
FETCH cur_sypr
|
|
INTO v_return;
|
|
CLOSE cur_sypr;
|
|
--
|
|
RETURN NVL(v_return, 'No Profile Name');
|
|
--
|
|
END;
|
|
--------------------------------------------------------------------------------
|
|
-- Name: tamaw060$.Startup
|
|
--
|
|
-- Description: This procedure is the entry point for the 'tamaw060$'
|
|
-- module (#Maintain System Options#1091#).
|
|
--
|
|
-- Parameters: None
|
|
--
|
|
--------------------------------------------------------------------------------
|
|
procedure Startup
|
|
is
|
|
begin
|
|
if not caco_security.security_check('tamaw060$') then
|
|
return;
|
|
end if;
|
|
|
|
WSGL.RegisterURL('tamaw060$.startup');
|
|
if WSGL.NotLowerCase then
|
|
return;
|
|
end if;
|
|
WSGL.StoreURLLink(0, '#Maintain System Options#1091#');
|
|
tamaw060$syop.startup(
|
|
Z_DIRECT_CALL => TRUE
|
|
);
|
|
|
|
exception
|
|
when others then
|
|
WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#Maintain System Options#1091#',
|
|
'', 'tamaw060$.Startup');
|
|
end;
|
|
--------------------------------------------------------------------------------
|
|
-- Name: tamaw060$.firstpage
|
|
--
|
|
-- Description: This procedure creates the first page for the 'tamaw060$'
|
|
-- module (#Maintain System Options#1091#).
|
|
--
|
|
-- Parameters: Z_DIRECT_CALL
|
|
|
|
--
|
|
--------------------------------------------------------------------------------
|
|
procedure FirstPage(Z_DIRECT_CALL in boolean
|
|
|
|
) is
|
|
begin
|
|
if not caco_security.security_check('tamaw060$') then
|
|
return;
|
|
end if;
|
|
|
|
WSGL.OpenPageHead('#Maintain System Options#1091#');
|
|
WSGL.METATag;
|
|
WSGL.ClosePageHead;
|
|
WSGL.OpenPageBody(FALSE, p_attributes=>'');
|
|
|
|
CreateStartupJavaScript;
|
|
|
|
WSGL.DefaultPageCaption('#Maintain System Options#1091#', 1);
|
|
htp.formOpen(curl => 'ActionItem', cattributes => 'NAME="SP$AIForm"');
|
|
WSGL.NavLinks(WSGL.MENU_LONG, WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT), 0, 'tamaw060$.showabout', '_top', p_output_line=>FALSE);
|
|
WSGL.NavLinks;
|
|
htp.formClose;
|
|
|
|
WSGL.ClosePageBody;
|
|
|
|
exception
|
|
when others then
|
|
WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#Maintain System Options#1091#',
|
|
'', 'tamaw060$.FirstPage');
|
|
end;
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
-- Name: tamaw060$.showabout
|
|
--
|
|
-- Description: This procedure is used to display an 'About' page for the
|
|
-- 'tamaw060$' module (#Maintain System Options#1091#).
|
|
--
|
|
--------------------------------------------------------------------------------
|
|
procedure showabout is
|
|
l_usr varchar2(255) := null;
|
|
begin
|
|
if not caco_security.security_check('tamaw060$') then
|
|
return;
|
|
end if;
|
|
l_usr := caco_security.get_user;
|
|
|
|
WSGL.RegisterURL('tamaw060$.showabout');
|
|
if WSGL.NotLowerCase then
|
|
return;
|
|
end if;
|
|
|
|
WSGL.OpenPageHead(WSGL.MsgGetText(107,WSGLM.DSP107_ABOUT)||' #Maintain System Options#1091#');
|
|
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)||' #Maintain System Options#1091#');
|
|
|
|
htp.para;
|
|
htp.p('
|
|
$Revision: $');
|
|
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, 'Access Manager Framework', 'TAMAW060', l_usr);
|
|
|
|
|
|
WSGL.ClosePageBody;
|
|
|
|
exception
|
|
when others then
|
|
WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#Maintain System Options#1091#',
|
|
'', 'tamaw060$.ShowAbout');
|
|
end;
|
|
--------------------------------------------------------------------------------
|
|
-- Name: tamaw060$.TemplateHeader
|
|
--
|
|
-- Description:
|
|
--
|
|
--------------------------------------------------------------------------------
|
|
procedure TemplateHeader(Z_DIRECT_CALL in boolean,
|
|
Z_TEMPLATE_ID in number) is
|
|
begin
|
|
if not caco_security.security_check('tamaw060$') then
|
|
return;
|
|
end if;
|
|
|
|
if Z_TEMPLATE_ID = 1 then
|
|
-- Template defined in \\soas001\sam\css\css_content.htm
|
|
htp.p('<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
|
<LINK REL=stylesheet HREF="caco_system.css?p_type=content" >
|
|
');
|
|
elsif Z_TEMPLATE_ID = 2 then
|
|
-- Template defined in \\soas001\sam\css\css_about.htm
|
|
htp.p('<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
|
<LINK REL=stylesheet HREF="caco_system.css?p_type=about" >
|
|
');
|
|
elsif Z_TEMPLATE_ID = 3 then
|
|
-- Template defined in \\soas001\sam\css\css_query.htm
|
|
htp.p('<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
|
<LINK REL=stylesheet HREF="caco_system.css?p_type=query" >
|
|
');
|
|
elsif Z_TEMPLATE_ID = 4 then
|
|
-- Template defined in \\soas001\sam\css\css_view.htm
|
|
htp.p('<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
|
<LINK REL=stylesheet HREF="caco_system.css?p_type=view" >
|
|
');
|
|
elsif Z_TEMPLATE_ID = 5 then
|
|
-- Template defined in \\soas001\sam\css\css_insert.htm
|
|
htp.p('<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
|
<LINK REL=stylesheet HREF="caco_system.css?p_type=insert" >
|
|
');
|
|
elsif Z_TEMPLATE_ID = 6 then
|
|
-- Template defined in \\soas001\sam\css\css_recordlist.htm
|
|
htp.p('<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
|
<LINK REL=stylesheet HREF="caco_system.css?p_type=recordlist" >
|
|
');
|
|
elsif Z_TEMPLATE_ID = 7 then
|
|
-- Template defined in \\soas001\sam\css\css_lov.htm
|
|
htp.p('<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
|
<LINK REL=stylesheet HREF="caco_system.css?p_type=lov" >
|
|
');
|
|
elsif Z_TEMPLATE_ID = 8 then
|
|
-- Template defined in \\soas001\sam\css\css_text.htm
|
|
htp.p('<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
|
<LINK REL=stylesheet HREF="caco_system.css?p_type=text" >
|
|
');
|
|
end if;
|
|
|
|
exception
|
|
when others then
|
|
WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#Maintain System Options#1091#',
|
|
'', 'tamaw060$.TemplateHeader');
|
|
end;
|
|
--------------------------------------------------------------------------------
|
|
-- Name: tamaw060$.GetRef
|
|
--
|
|
-- Description: Returns a handle to the display data for the
|
|
-- 'tamaw060$' module (#Maintain System Options#1091#).
|
|
-- 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 => 'tamaw060$'
|
|
, pFirstTitle => '#Maintain System Options#1091#'
|
|
);
|
|
end if;
|
|
return private_ModuleRef;
|
|
exception
|
|
when others then
|
|
WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, '#Maintain System Options#1091#',
|
|
'', 'tamaw060$.GetRef');
|
|
raise;
|
|
end;
|
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
-- Name: tamaw060$.CreateStartupJavaScript
|
|
--
|
|
-- Description:
|
|
--
|
|
-- Parameters:
|
|
--
|
|
--------------------------------------------------------------------------------
|
|
procedure CreateStartupJavaScript is
|
|
begin
|
|
htp.p(WSGJSL.OpenScript);
|
|
htp.p('var FormType = "Startup";');
|
|
htp.p(WSGJSL.CloseScript);
|
|
end;
|
|
end;
|
|
/
|
|
|