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 -N -r1.3 -r1.4 --- openacs-4/packages/assessment/sql/oracle/assessment-actions-package-create.sql 18 Feb 2005 15:30:20 -0000 1.3 +++ openacs-4/packages/assessment/sql/oracle/assessment-actions-package-create.sql 21 Feb 2005 22:16:32 -0000 1.4 @@ -125,12 +125,11 @@ description => 'Register new users', tcl_code => '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] +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 [auth::test::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 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"]