Index: openacs-4/packages/assessment/sql/postgresql/upgrade/upgrade-0.23d3-0.23d4.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/sql/postgresql/upgrade/upgrade-0.23d3-0.23d4.sql,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/assessment/sql/postgresql/upgrade/upgrade-0.23d3-0.23d4.sql 2 Dec 2013 08:56:13 -0000 1.1 +++ openacs-4/packages/assessment/sql/postgresql/upgrade/upgrade-0.23d3-0.23d4.sql 27 Oct 2014 16:40:56 -0000 1.2 @@ -20,10 +20,10 @@ 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 +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 [ad_parameter -package_id [ad_acs_kernel_id] SystemURL ""]. +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 @@ -80,7 +80,7 @@ set subject "Your $community_name membership has been approved" set message "Your $community_name membership has been approved. Please return to [ad_url] to log into [ad_system_name]." -set email_from [ad_parameter -package_id [ad_acs_kernel_id] SystemOwner] +set email_from [parameter::get -package_id [ad_acs_kernel_id] -parameter SystemOwner] db_1row select_user_info { select email, first_names, last_name from registered_users where user_id = :user_id} @@ -98,4 +98,4 @@ 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 where community_id in (select object_id from acs_permissions_all where grantee_id=:user_id)'); return v_action_id; -end; $$ language 'plpgsql'; +END; $$ language 'plpgsql';