Index: openacs-4/packages/dotlrn/www/admin/users-bulk-upload-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-bulk-upload-2.tcl,v
diff -u -N -r1.11 -r1.12
--- openacs-4/packages/dotlrn/www/admin/users-bulk-upload-2.tcl 23 Sep 2003 17:13:36 -0000 1.11
+++ openacs-4/packages/dotlrn/www/admin/users-bulk-upload-2.tcl 14 Nov 2003 22:11:24 -0000 1.12
@@ -47,7 +47,7 @@
oacs_util::csv_foreach -file $file_location -array_name row {
# First make sure the required data is there
-
+
if { ![info exists row(email)] || ![info exists row(first_names)] || ![info exists row(last_name)] } {
doc_body_append "
Datafile must include at least the email, first_names and last_name fields
"
db_abort_transaction
@@ -56,15 +56,17 @@
# We need to insert the ACS user
set password [ad_generate_random_string]
-
+
# Check if this user already exists
set user_id [cc_lookup_email_user $row(email)]
if {![empty_string_p $user_id]} {
doc_body_append [_ dotlrn.user_email_already_exists [list user_email $row(email)]]
lappend list_of_user_ids $user_id
} else {
- set user_id [ad_user_new $row(email) $row(first_names) $row(last_name) $password "" "" "" "t" "approved"]
+
+ array set auth_status_array [auth::create_user -email $row(email) -first_names $row(first_names) -last_name $row(last_name) -password $password]
+ set user_id $auth_status_array(user_id)
lappend list_of_user_ids $user_id
if {![info exists row(type)]} {