Index: openacs-4/packages/acs-admin/www/users/user-batch-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/user-batch-add-2.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-admin/www/users/user-batch-add-2.tcl	17 May 2003 09:36:54 -0000	1.2
+++ openacs-4/packages/acs-admin/www/users/user-batch-add-2.tcl	14 Nov 2003 22:06:35 -0000	1.3
@@ -58,7 +58,9 @@
     
     set password [ad_generate_random_string]
     
-    set user_id [ad_user_new $email $first_names $last_name $password "" "" "" "t" "approved"]
+    array set auth_status_array [auth::create_user -email $email -first_names $first_names -last_name $last_name -password $password]
+
+    set user_id $auth_status_array(user_id)
     
     append success_text "Created user $user_id for ($row)<br\>"