Index: openacs-4/packages/assessment/sql/oracle/assessment-actions-package-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/sql/oracle/assessment-actions-package-create.sql,v diff -u -r1.5.2.1 -r1.5.2.2 --- openacs-4/packages/assessment/sql/oracle/assessment-actions-package-create.sql 21 Jun 2005 15:14:24 -0000 1.5.2.1 +++ openacs-4/packages/assessment/sql/oracle/assessment-actions-package-create.sql 18 Jul 2005 18:01:01 -0000 1.5.2.2 @@ -127,9 +127,11 @@ 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 [ad_parameter -package_id [ad_acs_kernel_id] SystemURL ""]. set admin_email [db_string unused "select email from parties where party_id = :admin_user_id"]