lang::user::package_level_locale (public)

 lang::user::package_level_locale [ -user_id user_id ] package_id

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

Get the user's preferred package level locale for a package given by its package id.

Switches:

-user_id (optional)

Parameters:

package_id (required)

Testcases:

test_get_locales

Source code:

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

    # If package-level locales are turned off, or the user isn't logged in, return the empty string
    if { ![lang::system::use_package_level_locales_p] || $user_id == 0 } {
        return {}
    }

    # Cache for the lifetime of sessions (7 days)
    return [util_memoize [list lang::user::package_level_locale_not_cached $user_id $package_id] [sec_session_timeout]]

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

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