- merged V3.3 into simple surveys

sql/postgresql/intranet-simple-survey-create.sql

@@ -8,6 +8,90 @@
 -- @author frank.bergmann@project-open.com
 
 
+
+-----------------------------------------------------------
+-- Simple Surveys - Object Linking Map
+--
+-- This map links "Business Object Types" (users, projects and
+-- companies) and it's Type (provider, customer, internal, ...)
+-- to Simple Surveys.
+-- In the future we will also include there information about:
+--	- Who whould fill out the survey
+--	- When a person should fill out a survey
+--
+-- The problem with survey is not that much "restriction"
+-- (make sure only the right persons fill out a survey)
+-- but "enforcemente" (make sure the survey is filled out
+-- when necessary, such as a PM report).
+--
+-- Permissions are being set at the survey level, not at
+-- this mapping level.
+
+create table im_survsimp_object_map (
+		acs_object_type			varchar(1000)
+						constraint im_survsimp_omap_object_type_nn
+						not null
+						constraint im_survsimp_omap_object_type_fk
+						references acs_object_types,
+		biz_object_type_id		integer
+						constraint im_survsimp_omap_biz_object_type_id_fk
+						references im_categories,
+		survey_id			integer
+						constraint im_survsimp_omap_survey_id_nn
+						not null
+						constraint im_survsimp_omap_survey_id_fk
+						references survsimp_surveys,
+		name				varchar(1000),
+		obligatory_p			char(1) default 'f'
+						constraint im_survsimp_omap_obligatory_p_ck
+						check(obligatory_p in ('t','f')),
+		recurrence_tcl			varchar(4000),
+		interviewee_profile_id  	integer
+						constraint im_survsimp_omap_interv_id_fk
+						references groups,
+		note				varchar(4000)
+);
+
+create index im_survsimp_object_map_acs_object_type_idx on im_survsimp_object_map (acs_object_type);
+create index im_survsimp_object_map_biz_object_type_idx on im_survsimp_object_map (biz_object_type_id);
+create index im_survsimp_object_map_survey_idx on im_survsimp_object_map (survey_id);
+
+
+---------------------------------------------------------
+-- Object - SurvSimp relationship
+--
+
+alter table survsimp_responses
+add related_object_id integer references acs_objects;
+create index im_survsimp_responses_object_id_idx
+on survsimp_responses (related_object_id);
+
+alter table survsimp_responses
+add related_context_id integer references acs_objects;
+create index im_survsimp_responses_context_id_idx
+on survsimp_responses (related_context_id);
+
+
+
+---------------------------------------------------------
+-- Change the "survsimp_take_survey" from being
+-- a child of the "read privilege" to a "write".
+-- This is necessary, because the read privilege
+-- is required for a user in order to be able to
+-- access any page of the simple-survey package.
+--
+-- However, we want to set permissions on a
+-- survey-by-survey level. The "write" privilege
+-- is managable by the standard ]po[ security
+-- maintenance screens.
+
+
+select acs_privilege__remove_child('read','survsimp_take_survey');
+select acs_privilege__add_child('write','survsimp_take_survey');
+
+
+
+
 -----------------------------------------------------------
 -- Simple Surveys - Schedules
 --
@@ -87,7 +171,7 @@ on im_survsimp_schedules (
 	schedule_subject_group, 
 	schedule_object_group, 
 	schedule_survey_id, 
-	schedule_context_id
+	schedule_context_object_id
 );
 
 
@@ -138,24 +222,50 @@ select acs_privilege__add_child('write','survsimp_take_survey');
 create or replace function inline_0 ()
 returns integer as ' 
 declare
-    v_plugin		integer;
+	v_plugin		integer;
+begin
+	v_plugin := im_component_plugin__new (
+		null,					-- plugin_id
+		''acs_object'',				-- object_type
+		now(),					-- creation_date
+		null,					-- creation_user
+		null,					-- creation_ip
+		null,					-- context_id
+		''Project Survey Component'',		-- plugin_name
+		''intranet-simple-survey'',		-- package_name
+		''right'',				-- location
+		''/intranet/projects/view'',		-- page_url
+		null,					-- view_name
+		50,					-- sort_order
+		''im_survsimp_component $project_id''	-- component_tcl
+	);
+	return 0;
+end;' language 'plpgsql';
+select inline_0 ();
+drop function inline_0 ();
+
+
+create or replace function inline_0 ()
+returns integer as '
+declare
+	v_plugin		integer;
 begin
-    v_plugin := im_component_plugin__new (
-	null,					-- plugin_id
-	''acs_object'',				-- object_type
-	now(),					-- creation_date
-	null,					-- creation_user
-	null,					-- creation_ip
-	null,					-- context_id
-	''Project Survey Component'',		-- plugin_name
-	''intranet-simple-survey'',		-- package_name
-	''right'',				-- location
-	''/intranet/projects/view'',		-- page_url
-	null,					-- view_name
-	50,					-- sort_order
-	''im_survsimp_component $project_id''	-- component_tcl
-    );
-    return 0;
+	v_plugin := im_component_plugin__new (
+		null,					-- plugin_id
+		''acs_object'',				-- object_type
+		now(),					-- creation_date
+		null,					-- creation_user
+		null,					-- creation_ip
+		null,					-- context_id
+		''Company Survey Component'',		-- plugin_name
+		''intranet-simple-survey'',		-- package_name
+		''right'',				-- location
+		''/intranet/companies/view'',		-- page_url
+		null,					-- view_name
+		20,					-- sort_order
+		''im_survsimp_component $company_id''   -- component_tcl
+	);
+	return 0;
 end;' language 'plpgsql';
 select inline_0 ();
 drop function inline_0 ();
@@ -165,24 +275,24 @@ drop function inline_0 ();
 create or replace function inline_0 ()
 returns integer as '
 declare
-    v_plugin		integer;
+	v_plugin		integer;
 begin
-    v_plugin := im_component_plugin__new (
-	null,					-- plugin_id
-	''acs_object'',				-- object_type
-	now(),					-- creation_date
-	null,					-- creation_user
-	null,					-- creation_ip
-	null,					-- context_id
-	''Company Survey Component'',		-- plugin_name
-	''intranet-simple-survey'',		-- package_name
-	''right'',				-- location
-	''/intranet/companies/view'',		-- page_url
-	null,					-- view_name
-	20,					-- sort_order
-	''im_survsimp_component $company_id''   -- component_tcl
-    );
-    return 0;
+	v_plugin := im_component_plugin__new (
+		null,					-- plugin_id
+		''acs_object'',				-- object_type
+		now(),					-- creation_date
+		null,					-- creation_user
+		null,					-- creation_ip
+		null,					-- context_id
+		''User Survey Component'',		-- plugin_name
+		''intranet-simple-survey'',		-- package_name
+		''right'',				-- location
+		''/intranet/users/view'',		-- page_url
+		null,					-- view_name
+		120,					-- sort_order
+		''im_survsimp_component $user_id''	-- component_tcl
+	);
+	return 0;
 end;' language 'plpgsql';
 select inline_0 ();
 drop function inline_0 ();
@@ -190,62 +300,55 @@ drop function inline_0 ();
 
 
 
+
+
+
+
 -------------------------------------------------------------
 -- Menus
 --
 
--- prompt *** intranet-costs: Create Finance Menu
--- Setup the "Finance" main menu entry
---
 create or replace function inline_0 ()
 returns integer as '
 declare
-	-- Menu IDs
 	v_menu			integer;
 	v_admin_menu 		integer;
-
-	-- Groups
 	v_employees		integer;
 	v_accounting		integer;
 	v_senman		integer;
 	v_customers		integer;
 	v_freelancers		integer;
-	v_proman		integer;
 	v_admins		integer;
 begin
 
-    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_accounting from groups where group_name = ''Accounting'';
-    select group_id into v_customers from groups where group_name = ''Customers'';
-    select group_id into v_freelancers from groups where group_name = ''Freelancers'';
-
-    select menu_id
-    into v_admin_menu
-    from im_menus
-    where label=''admin'';
-
-    v_menu := im_menu__new (
-	null,				-- menu_id
-	''acs_object'',			-- object_type
-	now(),				-- creation_date
-	null,				-- creation_user
-	null,				-- creation_ip
-	null,				-- context_id
-	''intranet-simple-survey'',	-- package_name
-	''admin_survsimp'',		-- label
-	''Simple Surveys'',		-- name
-	''/intranet-simple-survey/admin/index'',		-- url
-	83,				-- sort_order
-	v_admin_menu,			-- parent_menu_id
-	null				-- visible_tcl
-    );
-
-    PERFORM acs_permission__grant_permission(v_menu, v_admins, ''read'');
-    PERFORM acs_permission__grant_permission(v_menu, v_senman, ''read'');
-
-    return 0;
+	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_accounting from groups where group_name = ''Accounting'';
+	select group_id into v_customers from groups where group_name = ''Customers'';
+	select group_id into v_freelancers from groups where group_name = ''Freelancers'';
+
+	select menu_id into v_admin_menu from im_menus where label=''admin'';
+
+	v_menu := im_menu__new (
+		null,					-- menu_id
+		''acs_object'',				-- object_type
+		now(),					-- creation_date
+		null,					-- creation_user
+		null,					-- creation_ip
+		null,					-- context_id
+		''intranet-simple-survey'',		-- package_name
+		''admin_survsimp'',			-- label
+		''Simple Surveys'',			-- name
+		''/intranet-simple-survey/admin/index'', -- url
+		83,					-- sort_order
+		v_admin_menu,				-- parent_menu_id
+		null					-- visible_tcl
+	);
+
+	PERFORM acs_permission__grant_permission(v_menu, v_admins, ''read'');
+	PERFORM acs_permission__grant_permission(v_menu, v_senman, ''read'');
+
+	return 0;
 end;' language 'plpgsql';
 select inline_0 ();
 drop function inline_0 ();
-