- Publicity: Public Only All
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
- install::xml::action::disable-locale (private)
- install::xml::action::enable-locale (private)
- install::xml::action::set-system-locale (private)
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):
- 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):
- 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):
- Testcases:
- No testcase defined.
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><set-system-locale locale="en_US"></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><enable-locale locale="en_US"></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><disable-locale locale="en_US"></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: