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 -r1.27
--- openacs-4/packages/acs-authentication/tcl/local-procs.tcl	11 Dec 2003 21:39:46 -0000	1.26
+++ openacs-4/packages/acs-authentication/tcl/local-procs.tcl	20 Apr 2004 21:12:31 -0000	1.27
@@ -120,7 +120,7 @@
         set auth_info(auth_status) "ok"
     } else {
         set auth_info(auth_status) "bad_password"
-        set auth_info(auth_message) "Invalid username or password"
+        set auth_info(auth_message) [_ acs-authentication.Invalid_username_or_password]
         return [array get auth_info]
     }
 
@@ -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]