Index: openacs-4/packages/acs-lang/www/admin/message-list.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/message-list.adp,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-lang/www/admin/message-list.adp	29 Jun 2004 10:17:40 -0000	1.9
+++ openacs-4/packages/acs-lang/www/admin/message-list.adp	3 Jul 2006 12:29:50 -0000	1.10
@@ -1,6 +1,17 @@
 <master>
   <property name="title">@page_title@</property>
   <property name="context">@context;noquote@</property>
+  <div style="float: right;">
+    <formtemplate id="locale_form">
+      <table cellspacing="2" cellpadding="2" border="0">
+        <tr class="form-element"><td class="form-label">Language</td>
+        <td class="form-widget"><formwidget id="locale"></td></tr>
+        @form_vars;noquote@
+        <tr class="form-element">
+        <td align="left" colspan="2"><formwidget id="formbutton:ok"></td></tr>
+      </table>
+    </formtemplate>
+  </div>
 
 <p>
   Show: 
Index: openacs-4/packages/acs-lang/www/admin/message-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/message-list.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-lang/www/admin/message-list.tcl	26 Feb 2005 16:00:10 -0000	1.10
+++ openacs-4/packages/acs-lang/www/admin/message-list.tcl	3 Jul 2006 12:29:50 -0000	1.11
@@ -152,3 +152,12 @@
     }
 }
 
+
+# Locale switch
+set languages [lang::system::get_locale_options]
+
+ad_form -name locale_form -action [ad_conn url] -export { tree_id category_id } -form {
+    {locale:text(select) {label "Language"} {value $locale} {options $languages}}
+}
+
+set form_vars [export_ns_set_vars form {locale form:mode form:id __confirmed_p __refreshing_p formbutton:ok} [ad_conn form]]