locale-set-enabled-p.tcl

Sets enabled_p for a locale.

Location:

/packages/acs-lang/www/admin/locale-set-enabled-p.tcl

Author:

Simon Carstensen <simon@collaboraid.biz>

Created:

2003-08-08

Related Files

• packages/acs-lang/www/admin/locale-set-enabled-p.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

    Sets enabled_p for a locale.

    @author Simon Carstensen (simon@collaboraid.biz)

    @creation-date 2003-08-08
} {
    locale:word
    enabled_p:boolean,notnull
}

lang::system::locale_set_enabled \
        -locale $locale \
        -enabled_p $enabled_p

if {$enabled_p} {
    lang::catalog::import -locales [list $locale]
}

ad_returnredirect . 
ad_script_abort

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