lang-install-procs.tcl

Support procedures for install.xml actions.

Location:

packages/acs-lang/tcl/lang-install-procs.tcl

Created:

20050129

Author:

Jeff Davis davis@xarg.net

CVS Identification:

$Id: lang-install-procs.tcl,v 1.7 2024/09/11 06:15:48 gustafn Exp $

Procedures in this file

Detailed information

[ hide source ] | [ make this the default ]

Content File Source

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.7 2024/09/11 06:15:48 gustafn Exp $
}

namespace eval ::install::xml::action {}

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 } {
    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
    lang::catalog::import -locales $locale
}

ad_proc -private ::install::xml::action::disable-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
}

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: