Index: openacs-4/packages/acs-authentication/tcl/local-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/local-procs.tcl,v
diff -u -r1.26.2.1 -r1.26.2.2
--- openacs-4/packages/acs-authentication/tcl/local-procs.tcl	14 Mar 2004 14:39:55 -0000	1.26.2.1
+++ openacs-4/packages/acs-authentication/tcl/local-procs.tcl	26 Mar 2004 13:46:12 -0000	1.26.2.2
@@ -411,6 +411,8 @@
         element_messages {}
         account_status "ok"
         account_message {}
+        generated_pwd_p 0
+        password {}
     }
 
     # We don't create anything here, so creation always succeeds
@@ -423,6 +425,8 @@
         set password [ad_generate_random_string]
         set generated_pwd_p 1
     }
+    set result(generated_pwd_p) $generated_pwd_p
+    set result(password) $password
 
     # Set user's password
     set user_id [acs_user::get_by_username -username $username]
Index: openacs-4/packages/acs-subsite/lib/user-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/user-new.tcl,v
diff -u -r1.5 -r1.5.4.1
--- openacs-4/packages/acs-subsite/lib/user-new.tcl	27 Oct 2003 12:18:10 -0000	1.5
+++ openacs-4/packages/acs-subsite/lib/user-new.tcl	26 Mar 2004 13:46:12 -0000	1.5.4.1
@@ -128,6 +128,10 @@
     if { ![empty_string_p $next_url] } {
         # Add user_id and account_message to the URL
         
+        if { $creation_info(generated_pwd_p) } {
+            set password $creation_info(password)
+        }
+        
         ad_returnredirect [export_vars -base $next_url {user_id password {account_message $creation_info(account_message)}}]
         ad_script_abort
     }