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 "<br>Datafile must include at least the email, first_names and last_name fields<br>"
             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)]} {