Index: openacs-4/contrib/packages/populate/www/add-users.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/populate/www/add-users.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/populate/www/add-users.tcl	27 Jan 2003 20:23:29 -0000	1.1
+++ openacs-4/contrib/packages/populate/www/add-users.tcl	17 Nov 2003 03:22:49 -0000	1.2
@@ -21,12 +21,15 @@
     for { set i 1 } { $i <= $new_users } { incr i } {
          incr current_users
          set email "user_${current_users}@users.users"
+         set username "user_${current_users}"
          set last_name "last_${current_users}"
          set first_names "first_${current_users}"
          set password "test"
          set question "foo?"
          set answer "bar"
-         ad_user_new $email $first_names $last_name $password $question $answer
+         auth::create_user -username $username -email $email -first_names $first_names \
+             -last_name $last_name -password test -secret_question $question \
+             -secret_answer $answer -email_verified_p t 
     }
 
     ad_returnredirect "index"