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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/tcl/lang-install-procs.tcl	31 Jan 2005 21:58:00 -0000	1.1
@@ -0,0 +1,22 @@
+ad_library {
+    Support procedures for install.xml actions.
+
+    @creation-date 20050129
+    @author Jeff Davis davis@xarg.net
+    @cvs-id $Id: lang-install-procs.tcl,v 1.1 2005/01/31 21:58:00 jeffd Exp $
+}
+
+ad_proc -private ::install::xml::action::set-system-locale { node } {
+   set the systewide locale
+} {
+    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
+} {
+    set locale [apm_required_attribute_value $node locale]
+    lang::system::locale_set_enabled -locale $locale -enabled_p t
+}