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.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 {} {
Index: openacs-4/packages/calendar/www/mini-calendar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/mini-calendar.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/calendar/www/mini-calendar.tcl	10 Oct 2003 16:43:14 -0000	1.7
+++ openacs-4/packages/calendar/www/mini-calendar.tcl	16 Oct 2003 13:20:06 -0000	1.8
@@ -15,10 +15,10 @@
 }
 
 array set message_key_array {
-    list acs-datetime.List
-    day acs-datetime.Day
-    week acs-datetime.Week
-    month acs-datetime.Month
+    list #acs-datetime.List#
+    day #acs-datetime.Day#
+    week #acs-datetime.Week#
+    month #acs-datetime.Month#
 }
 
 # Create row with existing views
@@ -29,7 +29,7 @@
     } else {
         set active_p f
     }
-    multirow append views [_ $message_key_array($viewname)] $viewname $active_p
+    multirow append views [lang::util::localize $message_key_array($viewname)] $viewname $active_p
 }
 
 set list_of_vars [list]