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.5 2017/08/07 23:47:56 gustafn Exp $

Procedures in this file

Detailed information

install::xml::action::disable-locale (private)

 install::xml::action::disable-locale node

Disable a locale <disable-locale locale="en_US">

Parameters:
node

Partial Call Graph (max 5 caller/called nodes):
%3 apm_required_attribute_value apm_required_attribute_value (public) lang::system::locale_set_enabled lang::system::locale_set_enabled (public) install::xml::action::disable-locale install::xml::action::disable-locale install::xml::action::disable-locale->apm_required_attribute_value install::xml::action::disable-locale->lang::system::locale_set_enabled

Testcases:
No testcase defined.

install::xml::action::enable-locale (private)

 install::xml::action::enable-locale node

Enable a locale <enable-locale locale="en_US">

Parameters:
node

Partial Call Graph (max 5 caller/called nodes):
%3 apm_required_attribute_value apm_required_attribute_value (public) lang::system::locale_set_enabled lang::system::locale_set_enabled (public) install::xml::action::enable-locale install::xml::action::enable-locale install::xml::action::enable-locale->apm_required_attribute_value install::xml::action::enable-locale->lang::system::locale_set_enabled

Testcases:
No testcase defined.

install::xml::action::set-system-locale (private)

 install::xml::action::set-system-locale node

set the systewide locale <set-system-locale locale="en_US">

Parameters:
node

Partial Call Graph (max 5 caller/called nodes):
%3 apm_required_attribute_value apm_required_attribute_value (public) lang::system::set_locale lang::system::set_locale (public) install::xml::action::set-system-locale install::xml::action::set-system-locale install::xml::action::set-system-locale->apm_required_attribute_value install::xml::action::set-system-locale->lang::system::set_locale

Testcases:
No testcase defined.
[ 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.5 2017/08/07 23:47:56 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
}

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: