Index: openacs-4/packages/acs-subsite/tcl/group-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-procs.tcl,v diff -u -r1.10 -r1.11 --- openacs-4/packages/acs-subsite/tcl/group-procs.tcl 10 Oct 2003 16:35:03 -0000 1.10 +++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl 16 Oct 2003 13:20:06 -0000 1.11 @@ -253,8 +253,15 @@ } { Returns the pretty-name of a member state. } { - regsub -all { } $member_state {_} member_state - return [_ acs-kernel.member_state_$member_state] + array set message_key_array { + approved #acs-kernel.member_state_approved# + "need approval" #acs-kernel.member_state_needs_approval# + banned #acs-kernel.member_state_banned# + rejected #acs-kernel.member_state_rejected# + deleted #acs-kernel.member_state_deleted# + } + + return [lang::util::localize $message_key_array($member_state)] } ad_proc -public group::get_join_policy_options {} {