Index: openacs-4/packages/acs-lang/tcl/lang-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-install-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-lang/tcl/lang-install-procs.tcl	31 Jan 2005 21:58:00 -0000	1.1
+++ openacs-4/packages/acs-lang/tcl/lang-install-procs.tcl	25 Mar 2005 17:04:38 -0000	1.2
@@ -8,15 +8,28 @@
 
 ad_proc -private ::install::xml::action::set-system-locale { node } {
    set the systewide locale
+
+    <code>&lt;set-system-locale locale="en_US"&gt;</code>
 } {
     set locale [apm_required_attribute_value $node locale]
     lang::system::set_locale $locale
 }
 
 
 ad_proc -private ::install::xml::action::enable-locale { node } {
-   set the systewide locale
+    Enable a locale
+
+    <code>&lt;enable-locale locale="en_US"&gt;</code>
 } {
     set locale [apm_required_attribute_value $node locale]
     lang::system::locale_set_enabled -locale $locale -enabled_p t
 }
+
+ad_proc -private ::install::xml::action::disble-locale { node } {
+    Disable a locale
+
+    <code>&lt;disable-locale locale="en_US"&gt;</code>
+} {
+    set locale [apm_required_attribute_value $node locale]
+    lang::system::locale_set_enabled -locale $locale -enabled_p f
+}