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 -r1.10 -r1.11 --- openacs-4/packages/dotlrn/www/admin/users-bulk-upload-2.tcl 29 May 2003 18:05:01 -0000 1.10 +++ openacs-4/packages/dotlrn/www/admin/users-bulk-upload-2.tcl 23 Sep 2003 17:13:36 -0000 1.11 @@ -37,7 +37,7 @@ doc_body_append "[_ dotlrn.Bulk_Uploading]

" -set list_of_user [list] +set list_of_user_ids [list] set list_of_addresses_and_passwords [list] # Do the stuff @@ -61,11 +61,11 @@ 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_users $user_id + 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"] - lappend list_of_users $user_id + lappend list_of_user_ids $user_id if {![info exists row(type)]} { set row(type) student