Index: openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl,v
diff -u -r1.59 -r1.60
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	11 Dec 2003 21:39:46 -0000	1.59
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	21 Jan 2004 17:13:07 -0000	1.60
@@ -1234,8 +1234,11 @@
     # Initialize to 'closed', because most cases below mean the account is closed
     set result(account_status) "closed"
 
-    # system_name is used in some of the I18N messages
-    set system_name [ad_system_name]    
+    # system_name and email is used in some of the I18N messages
+    set system_name [ad_system_name]
+    acs_user::get -user_id $user_id -array user
+    set authority_id $user(authority_id)
+    set email $user(email)    
 
     switch $member_state {
         approved {