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

[ 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: