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 -N -r1.9 -r1.10
--- openacs-4/packages/acs-subsite/tcl/group-procs.tcl	3 Oct 2003 10:14:30 -0000	1.9
+++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl	10 Oct 2003 16:35:03 -0000	1.10
@@ -248,6 +248,15 @@
     return [list approved "needs approval" banned rejected deleted]
 }
 
+ad_proc -public group::get_member_state_pretty {
+    {-member_state:required}
+} {
+    Returns the pretty-name of a member state.
+} {
+    regsub -all { } $member_state {_} member_state
+    return [_ acs-kernel.member_state_$member_state]
+}
+
 ad_proc -public group::get_join_policy_options {} {
     Returns a list of valid join policies in a format suitable for a form builder drop-down.
 } {