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 -N -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]