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 -N
--- openacs-4/packages/assessment/sql/postgresql/assessment-actions-create-p.sql	26 Aug 2014 11:53:09 -0000	1.3.2.3
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,167 +0,0 @@
-
--- 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'
-);
-
-
-
-
-
--- added
-select define_function_args('as_action__new','action_id,name,description,tcl_code,context_id,creation_user');
-
---
--- procedure as_action__new/6
---
-CREATE OR REPLACE FUNCTION as_action__new(
-   new__action_id integer,
-   new__name varchar,
-   new__description varchar,
-   new__tcl_code text,
-   new__context_id integer,
-   new__creation_user integer
-) RETURNS integer AS $$
-DECLARE 
-	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;
-
-
-
-
-
--- added
-select define_function_args('as_action__delete','action_id');
-
---
--- procedure as_action__delete/1
---
-CREATE OR REPLACE FUNCTION as_action__delete(
-   del__action_id integer
-) RETURNS integer AS $$
-DECLARE 
-BEGIN
-	
-	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_action_map 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_actions where action_id = del__action_id;
-        PERFORM acs_object__delete (del__action_id);	
-	return del__action_id;	
-
-END;
-$$ LANGUAGE plpgsql;	
-	
-	
-
-
-
-CREATE OR REPLACE FUNCTION as_action__default_actions(
-   new__context_id integer,
-   new__creation_user integer
-) RETURNS integer AS $$
-DECLARE 
-	v_action_id		integer;
-	v_parameter_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_parameter_id:= nextval('as_action_params_parameter_id');
-insert into as_action_params (parameter_id, action_id,type, varname, description) values (v_parameter_id,v_action_id,'n','first_names','First Names of the User');
-v_parameter_id:= nextval('as_action_params_parameter_id');
-insert into as_action_params (parameter_id, action_id,type, varname, description) values (v_parameter_id,v_action_id,'n','last_name','Last Name of the User');
-v_parameter_id:= nextval('as_action_params_parameter_id');
-insert into as_action_params (parameter_id, action_id,type, varname, description) values (v_parameter_id,v_action_id,'n','email','Email of the User');
-v_parameter_id:= nextval('as_action_params_parameter_id');
-insert into as_action_params (parameter_id, action_id,type, varname, description) values (v_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_parameter_id:= nextval('as_action_params_parameter_id');
-insert into as_action_params (parameter_id, action_id,type, varname, description,query) values (v_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_parameter_id:= nextval('as_action_params_parameter_id');
-insert into as_action_params (parameter_id, action_id,type, varname, description,query) values (v_parameter_id,v_action_id,'q','community_id','Community to add the user', 'select pretty_name,community_id from dotlrn_communities');
-
-END;
-$$ LANGUAGE plpgsql;