lang::system::language (public)

 lang::system::language [ -package_id package_id ] [ -site_wide ] \
    [ -iso6392 ]

Defined in packages/acs-lang/tcl/locale-procs.tcl

Get system language setting for a given package instance.

Switches:

-package_id (optional)

The package for which you want to get the language setting.

-site_wide (optional, boolean)

Set this if you want to get the site-wide language setting.

-iso6392 (optional, boolean)

Set this if you want to force iso-639-2 code (3 digits)

Returns:

3 chars language code if iso6392 is set, left part of locale otherwise

Partial Call Graph (max 5 caller/called nodes):

Testcases:

test_get_locales

Source code:

    set locale [locale -package_id $package_id -site_wide=$site_wide_p]
    set sys_lang [lindex [split $locale "_"] 0]

    if { $iso6392_p } {
        return [lang::util::iso6392_from_language -language $sys_lang]
    } else {
        return $sys_lang
    }

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

packages/acs-lang/tcl/locale-procs.xql