lang::user::locale (public)

 lang::user::locale [ -package_id package_id ] [ -site_wide ] \
    [ -user_id user_id ]

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

Get user locale preference for a given package instance.

Switches:

-package_id (optional)

The package for which you want to get the locale preference.

-site_wide (optional, boolean)

Set this if you want to get the site-wide locale preference.

-user_id (optional)

Set this to the user you want to get the locale of, defaults to current user.

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

Testcases:

test_get_locales, create_form_with_numeric

Source code:

    # default to current user
    if { $user_id eq "" } {
        set user_id [ad_conn untrusted_user_id]
    }

    # default to current connection package
    if { $package_id eq "" } {
        set package_id [ad_conn package_id]
    }

    if {$site_wide_p} {
        set locale [site_wide_locale -user_id $user_id]
    } else {
        #
        # Try package level locale first unless site_wide_p was
        # specified.
        #
        set locale [package_level_locale -user_id $user_id $package_id]
        #
        # If there's no package setting, then use the site-wide
        # setting.
        #
        if { $locale eq "" } {
            set locale [site_wide_locale -user_id $user_id]
        }
    }

    return $locale

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

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