Commit 039b0841 authored by Frank Bergmann's avatar Frank Bergmann

- OpenACS installer changes

parent b543f452
...@@ -89,6 +89,10 @@ create table im_timesheet_conf_objects ( ...@@ -89,6 +89,10 @@ create table im_timesheet_conf_objects (
-----------------------------------------------------------
-- Add confirmation object to hours to keep status
--
-- Add an conf_object_id field to im_hours to mark confirmed hours -- Add an conf_object_id field to im_hours to mark confirmed hours
alter table im_hours add column conf_object_id integer alter table im_hours add column conf_object_id integer
constraint im_hours_conf_obj_fk references im_timesheet_conf_objects; constraint im_hours_conf_obj_fk references im_timesheet_conf_objects;
...@@ -99,14 +103,6 @@ create index im_hours_conf_obj_idx on im_hours(conf_object_id); ...@@ -99,14 +103,6 @@ create index im_hours_conf_obj_idx on im_hours(conf_object_id);
-----------------------------------------------------------
-- Add confirmation object to hours to keep status
--
alter table im_hours
add conf_object_id integer references im_timesheet_conf_objects;
----------------------------------------------------------- -----------------------------------------------------------
-- Privileges -- Privileges
...@@ -367,56 +363,56 @@ SELECT im_component_plugin__new ( ...@@ -367,56 +363,56 @@ SELECT im_component_plugin__new (
-- Add "Start Timesheet Workflow" link to TimesheetNewPage -- Add "Start Timesheet Workflow" link to TimesheetNewPage
-- --
create or replace function inline_0 () -- create or replace function inline_0 ()
returns integer as ' -- returns integer as '
declare -- declare
-- Menu IDs -- -- Menu IDs
v_menu integer; -- v_menu integer;
v_main_menu integer; -- v_main_menu integer;
--
-- Groups -- -- Groups
v_employees integer; -- v_employees integer;
v_accounting integer; -- v_accounting integer;
v_senman integer; -- v_senman integer;
v_proman integer; -- v_proman integer;
v_admins integer; -- v_admins integer;
BEGIN -- BEGIN
-- Get some group IDs -- -- Get some group IDs
select group_id into v_admins from groups where group_name = ''P/O Admins''; -- select group_id into v_admins from groups where group_name = ''P/O Admins'';
select group_id into v_senman from groups where group_name = ''Senior Managers''; -- select group_id into v_senman from groups where group_name = ''Senior Managers'';
select group_id into v_proman from groups where group_name = ''Project Managers''; -- select group_id into v_proman from groups where group_name = ''Project Managers'';
select group_id into v_accounting from groups where group_name = ''Accounting''; -- select group_id into v_accounting from groups where group_name = ''Accounting'';
select group_id into v_employees from groups where group_name = ''Employees''; -- select group_id into v_employees from groups where group_name = ''Employees'';
--
-- Determine the main menu. "Label" is used to identify menus. -- -- Determine the main menu. "Label" is used to identify menus.
select menu_id into v_main_menu -- select menu_id into v_main_menu
from im_menus where label = ''timesheet_hours_new_admin''; -- from im_menus where label = ''timesheet_hours_new_admin'';
--
-- Create the menu. -- -- Create the menu.
v_menu := im_menu__new ( -- v_menu := im_menu__new (
null, -- p_menu_id -- null, -- p_menu_id
''acs_object'', -- object_type -- ''acs_object'', -- object_type
now(), -- creation_date -- now(), -- creation_date
null, -- creation_user -- null, -- creation_user
null, -- creation_ip -- null, -- creation_ip
null, -- context_id -- null, -- context_id
''intranet-timesheet2-workflow'', -- package_name -- ''intranet-timesheet2-workflow'', -- package_name
''timesheet_hours_new_start_workflow'', -- label -- ''timesheet_hours_new_start_workflow'', -- label
''Start Confirmation Workflow'', -- name -- ''Start Confirmation Workflow'', -- name
''/intranet-timesheet2-workflow/conf-objects/new-workflow?'', -- url -- ''/intranet-timesheet2-workflow/conf-objects/new-workflow?'', -- url
15, -- sort_order -- 15, -- sort_order
v_main_menu, -- parent_menu_id -- v_main_menu, -- parent_menu_id
null -- p_visible_tcl -- null -- p_visible_tcl
); -- );
--
-- Grant read permissions to most of the system -- -- Grant read permissions to most of the system
PERFORM acs_permission__grant_permission(v_menu, v_admins, ''read''); -- PERFORM acs_permission__grant_permission(v_menu, v_admins, ''read'');
PERFORM acs_permission__grant_permission(v_menu, v_senman, ''read''); -- PERFORM acs_permission__grant_permission(v_menu, v_senman, ''read'');
PERFORM acs_permission__grant_permission(v_menu, v_proman, ''read''); -- PERFORM acs_permission__grant_permission(v_menu, v_proman, ''read'');
PERFORM acs_permission__grant_permission(v_menu, v_accounting, ''read''); -- PERFORM acs_permission__grant_permission(v_menu, v_accounting, ''read'');
PERFORM acs_permission__grant_permission(v_menu, v_employees, ''read''); -- PERFORM acs_permission__grant_permission(v_menu, v_employees, ''read'');
--
return 0; -- return 0;
end;' language 'plpgsql'; -- end;' language 'plpgsql';
select inline_0 (); -- select inline_0 ();
drop function inline_0 (); -- drop function inline_0 ();
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment