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]]