lang::user::language (public)

 lang::user::language [ -package_id package_id ] [ -user_id user_id ] \
    [ -site_wide ] [ -iso6392 ]

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

Get user language preference for a given package instance. This preliminary implementation only has one site-wide setting, though.

Switches:

-package_id (optional)

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

-user_id (optional)

The user we wish to get the language for, defaults to connection user.

-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 -user_id $user_id -site_wide=$site_wide_p]
    set user_lang [lindex [split $locale "_"] 0]

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

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

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