Index: openacs-4/packages/assessment/assessment.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/assessment.info,v
diff -u -r1.56 -r1.57
--- openacs-4/packages/assessment/assessment.info 5 Jul 2018 10:42:47 -0000 1.56
+++ openacs-4/packages/assessment/assessment.info 12 Jul 2018 09:00:13 -0000 1.57
@@ -7,7 +7,7 @@
f
f
-
+
Eduardo Perez Ureta
Assessment package that will replace the surveys
quizz, complex survey, poll and other data collection packages
@@ -18,7 +18,7 @@
2
#assessment.Assessment#
-
+
Index: openacs-4/packages/assessment/sql/postgresql/assessment-actions-create-p.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/sql/postgresql/assessment-actions-create-p.sql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/sql/postgresql/assessment-actions-create-p.sql 3 May 2018 20:09:59 -0000 1.4
+++ openacs-4/packages/assessment/sql/postgresql/assessment-actions-create-p.sql 12 Jul 2018 09:00:13 -0000 1.5
@@ -1,141 +1,144 @@
--- Assessment Package
--- @author Anny Flores (annyflores@viaro.net) Viaro Networks (www.viaro.net)
--- @creation-date 2005-01-06
+-- This file is never sourced and was therefore commented out and left
+-- just for documentation purposes
-select acs_object_type__create_type (
- 'as_action',
- 'as_action',
- 'as_actions',
- 'acs_object',
- 'as_actions',
- 'action_id',
- null,
- 'f',
- null,
- 'as_action__name'
-);
+-- -- Assessment Package
+-- -- @author Anny Flores (annyflores@viaro.net) Viaro Networks (www.viaro.net)
+-- -- @creation-date 2005-01-06
+-- select acs_object_type__create_type (
+-- 'as_action',
+-- 'as_action',
+-- 'as_actions',
+-- 'acs_object',
+-- 'as_actions',
+-- 'action_id',
+-- null,
+-- 'f',
+-- null,
+-- 'as_action__name'
+-- );
-create or replace function as_action__new (integer,varchar,varchar,text,integer,integer)
-returns integer as '
-declare
- new__action_id alias for $1;
- new__name alias for $2;
- new__description alias for $3;
- new__tcl_code alias for $4;
- new__context_id alias for $5;
- new__creation_user alias for $6;
- v_action_id integer;
-begin
- v_action_id := acs_object__new (
- new__action_id,
- ''as_action'',
- now(),
- new__creation_user,
- null,
- new__context_id
- );
- insert into as_actions
- (action_id,name,description,tcl_code)
- values (v_action_id,new__name,new__description,new__tcl_code);
- return v_action_id;
-end;' language 'plpgsql';
+-- create or replace function as_action__new (integer,varchar,varchar,text,integer,integer)
+-- returns integer as '
+-- declare
+-- new__action_id alias for $1;
+-- new__name alias for $2;
+-- new__description alias for $3;
+-- new__tcl_code alias for $4;
+-- new__context_id alias for $5;
+-- new__creation_user alias for $6;
+-- v_action_id integer;
+-- begin
+-- v_action_id := acs_object__new (
+-- new__action_id,
+-- ''as_action'',
+-- now(),
+-- new__creation_user,
+-- null,
+-- new__context_id
+-- );
+-- insert into as_actions
+-- (action_id,name,description,tcl_code)
+-- values (v_action_id,new__name,new__description,new__tcl_code);
+-- return v_action_id;
+-- end;' language 'plpgsql';
-create or replace function as_action__delete (integer)
-returns integer as '
-declare
- del__action_id alias for $1;
-begin
+
+-- create or replace function as_action__delete (integer)
+-- returns integer as '
+-- declare
+-- del__action_id alias for $1;
+-- begin
- delete from as_actions_log where
- action_id = del__action_id;
+-- delete from as_actions_log where
+-- action_id = del__action_id;
- delete from as_inter_item_checks where inter_item_check_id in (select inter_item_check_id from as_action_map where action_id=del__action_id);
+-- delete from as_inter_item_checks where inter_item_check_id in (select inter_item_check_id from as_action_map where action_id=del__action_id);
- delete from as_action_map where action_id = del__action_id;
+-- delete from as_action_map where action_id = del__action_id;
- delete from as_action_params where action_id=del__action_id;
+-- delete from as_action_params where action_id=del__action_id;
- delete from as_param_map where action_id= del__action_id;
+-- delete from as_param_map where action_id= del__action_id;
- delete from as_actions where action_id = del__action_id;
- PERFORM acs_object__delete (del__action_id);
- return del__action_id;
+-- delete from as_actions where action_id = del__action_id;
+-- PERFORM acs_object__delete (del__action_id);
+-- return del__action_id;
-end;' language 'plpgsql';
+-- end;' language 'plpgsql';
-create or replace function as_action__default_actions (integer,integer)
-returns integer as '
-declare
- new__context_id alias for $1;
- new__creation_user alias for $2;
- v_action_id integer;
-begin
+-- create or replace function as_action__default_actions (integer,integer)
+-- returns integer as '
+-- declare
+-- new__context_id alias for $1;
+-- new__creation_user alias for $2;
+-- v_action_id integer;
+-- begin
- v_action_id := as_action__new (
- null,
- ''Register User'',
- ''Register new users'',
- ''set password [ad_generate_random_string]
-db_transaction {
-array set user_new_info [auth::create_user -username $user_name -email $email -first_names $first_names -last_name $last_name -password $password]
-}
-set admin_user_id [as::actions::get_admin_user_id]
-set administration_name [db_string admin_name "select first_names || \'\' \'\' || last_name from persons where person_id
- = :admin_user_id"]
-set system_name [ad_system_name]
-set system_url [parameter::get -package_id [ad_acs_kernel_id] -parameter SystemURL -default ""]
-set admin_email [db_string unused "select email from parties where party_id = :admin_user_id"]
-set message "$first_names $last_name,
-You have been added as a user to $system_name
-at $system_url
-Login information:
-Email: $email
-Password: $password
-(you may change your password after you log in)
-Thank you,
-$administration_name"
-acs_mail_lite::send -to_addr "$email" -from_addr "$admin_email" -subject "You have been added as a user to [ad_system_name] at [ad_url]" -body "$message"'',
- new__context_id,
- new__creation_user
- );
+-- v_action_id := as_action__new (
+-- null,
+-- ''Register User'',
+-- ''Register new users'',
+-- ''set password [ad_generate_random_string]
+-- db_transaction {
+-- array set user_new_info [auth::create_user -username $user_name -email $email -first_names $first_names -last_name $last_name -password $password]
+-- }
+-- set admin_user_id [as::actions::get_admin_user_id]
+-- set administration_name [db_string admin_name "select first_names || \'\' \'\' || last_name from persons where person_id
+-- = :admin_user_id"]
+-- set system_name [ad_system_name]
+-- set system_url [parameter::get -package_id [ad_acs_kernel_id] -parameter SystemURL -default ""]
+-- set admin_email [db_string unused "select email from parties where party_id = :admin_user_id"]
+-- set message "$first_names $last_name,
+-- You have been added as a user to $system_name
+-- at $system_url
+-- Login information:
+-- Email: $email
+-- Password: $password
+-- (you may change your password after you log in)
+-- Thank you,
+-- $administration_name"
+-- acs_mail_lite::send -to_addr "$email" -from_addr "$admin_email" -subject "You have been added as a user to [ad_system_name] at [ad_url]" -body "$message"'',
+-- new__context_id,
+-- new__creation_user
+-- );
-insert into as_action_params (parameter_id, action_id,type, varname, description) values (select nextval(''as_action_params_parameter_id''),v_action_id,''n'',''first_names'',''First Names of the User'');
-insert into as_action_params (parameter_id, action_id,type, varname, description) values (select nextval(''as_action_params_parameter_id''),v_action_id,''n'',''last_name'',''Last Name of the User'');
-insert into as_action_params (parameter_id, action_id,type, varname, description) values (select nextval(''as_action_params_parameter_id''),v_action_id,''n'',''email'',''Email of the User'');
-insert into as_action_params (parameter_id, action_id,type, varname, description) values (select nextval(''as_action_params_parameter_id''),v_action_id,''n'',''user_name'',''User name of the User'');
+-- insert into as_action_params (parameter_id, action_id,type, varname, description) values (select nextval(''as_action_params_parameter_id''),v_action_id,''n'',''first_names'',''First Names of the User'');
+-- insert into as_action_params (parameter_id, action_id,type, varname, description) values (select nextval(''as_action_params_parameter_id''),v_action_id,''n'',''last_name'',''Last Name of the User'');
+-- insert into as_action_params (parameter_id, action_id,type, varname, description) values (select nextval(''as_action_params_parameter_id''),v_action_id,''n'',''email'',''Email of the User'');
+-- insert into as_action_params (parameter_id, action_id,type, varname, description) values (select nextval(''as_action_params_parameter_id''),v_action_id,''n'',''user_name'',''User name of the User'');
-v_action_id:= as_action__new (
- null,
- ''Event Registration'',
- ''Register user to event'',
- ''set user_id [ad_conn user_id]
-events::registration::new -event_id $event_id -user_id $user_id'',
- new__context_id,
- new__creation_user
- );
+-- v_action_id:= as_action__new (
+-- null,
+-- ''Event Registration'',
+-- ''Register user to event'',
+-- ''set user_id [ad_conn user_id]
+-- events::registration::new -event_id $event_id -user_id $user_id'',
+-- new__context_id,
+-- new__creation_user
+-- );
-insert into as_action_params (parameter_id, action_id,type, varname, description,query) values (select nextval(''as_action_params_parameter_id''),v_action_id,''q'',''event_id'',''Event to add the user'', ''select event_id,event_id from acs_events'');
+-- insert into as_action_params (parameter_id, action_id,type, varname, description,query) values (select nextval(''as_action_params_parameter_id''),v_action_id,''q'',''event_id'',''Event to add the user'', ''select event_id,event_id from acs_events'');
-v_action_id:= as_action__new (
- null,
- ''Add to Community'',
- ''Add user to a community'',
- ''set user_id [ad_conn user_id]
-dotlrn_privacy::set_user_guest_p -user_id $user_id -value "t"
-dotlrn::user_add -can_browse -user_id $user_id
-dotlrn_community::add_user_to_community -community_id $community_id -user_id $user_id'',
- new__context_id,
- new__creation_user
- );
+-- v_action_id:= as_action__new (
+-- null,
+-- ''Add to Community'',
+-- ''Add user to a community'',
+-- ''set user_id [ad_conn user_id]
+-- dotlrn_privacy::set_user_guest_p -user_id $user_id -value "t"
+-- dotlrn::user_add -can_browse -user_id $user_id
+-- dotlrn_community::add_user_to_community -community_id $community_id -user_id $user_id'',
+-- new__context_id,
+-- new__creation_user
+-- );
-insert into as_action_params (parameter_id, action_id,type, varname, description,query) values (select nextval(''as_action_params_parameter_id''),v_action_id,''q'',''community_id'',''Community to add the user'', ''select pretty_name,community_id from dotlrn_communities'');
+-- insert into as_action_params (parameter_id, action_id,type, varname, description,query) values (select nextval(''as_action_params_parameter_id''),v_action_id,''q'',''community_id'',''Community to add the user'', ''select pretty_name,community_id from dotlrn_communities'');
-end;' language 'plpgsql';
+-- end;' language 'plpgsql';
Index: openacs-4/packages/assessment/sql/postgresql/assessment-actions-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/sql/postgresql/assessment-actions-create.sql,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/assessment/sql/postgresql/assessment-actions-create.sql 7 Aug 2017 23:48:03 -0000 1.15
+++ openacs-4/packages/assessment/sql/postgresql/assessment-actions-create.sql 12 Jul 2018 09:00:13 -0000 1.16
@@ -100,7 +100,7 @@
null,
'f',
null,
- 'as_action__name'
+ null -- name method
);
Index: openacs-4/packages/assessment/sql/postgresql/assessment-checks-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/sql/postgresql/assessment-checks-create.sql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/sql/postgresql/assessment-checks-create.sql 27 Oct 2014 16:40:56 -0000 1.4
+++ openacs-4/packages/assessment/sql/postgresql/assessment-checks-create.sql 12 Jul 2018 09:00:13 -0000 1.5
@@ -8,7 +8,7 @@
'As_Inter_item_check',
'As_Inter_item_checks',
'acs_object',
- 'as_inter_items_checks',
+ 'as_inter_item_checks',
'inter_item_check_id',
null,
'f',
@@ -112,4 +112,4 @@
END;
$$ LANGUAGE plpgsql;
-
\ No newline at end of file
+
Index: openacs-4/packages/assessment/sql/postgresql/upgrade/upgrade-2.10.0d1-2.10.0d2.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/sql/postgresql/upgrade/upgrade-2.10.0d1-2.10.0d2.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/sql/postgresql/upgrade/upgrade-2.10.0d1-2.10.0d2.sql 12 Jul 2018 09:00:13 -0000 1.1
@@ -0,0 +1,11 @@
+
+DO $$
+BEGIN
+ update acs_object_types set
+ table_name = 'as_inter_item_checks'
+ where object_type = 'as_inter_item_check';
+
+ update acs_object_types set
+ name_method = null
+ where object_type = 'as_action';
+END$$;