Index: openacs-4/packages/dotlrn/www/user-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/user-add.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/user-add.tcl	20 Jan 2002 17:20:45 -0000	1.2
+++ openacs-4/packages/dotlrn/www/user-add.tcl	20 Jan 2002 21:10:12 -0000	1.3
@@ -61,16 +61,18 @@
 
     db_transaction {
         # create the ACS user
-        set target_user_id [ad_user_new $email $first_names $last_name [ad_generate_random_string] "" "" "" "t" "approved" $target_user_id]
+        set password [ad_generate_random_string]
+        set target_user_id [ad_user_new $email $first_names $last_name $password "" "" "" "t" "approved" $target_user_id]
 
         # make the user a dotLRN user
-        dotlrn::user_add -rel_type $rel_type -user_id $target_user_id -type_id [dotrln::get_user_type_id_from_type -type $type]
+        dotlrn::user_add -rel_type $rel_type -user_id $target_user_id -type_id [dotlrn::get_user_type_id_from_type -type $type]
 
         # can this user read private data?
         acs_privacy::set_user_read_private_data -user_id $target_user_id -object_id [dotlrn::get_package_id] -value $read_private_data_p
     }
 
-    ad_returnredirect "member-add-2?user_id=$target_user_id"
+    set redirect "user-add-2?[export_vars {{user_id $target_user_id} email password first_names last_name referer}]"
+    ad_returnredirect "member-add-2?[export_vars {{user_id $target_user_id} {referer $redirect}}]"
     ad_script_abort
 }