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

Partial Call Graph (max 5 caller/called nodes):
%3 test_test_get_locales test_get_locales (test acs-lang) lang::user::package_level_locale lang::user::package_level_locale test_test_get_locales->lang::user::package_level_locale ad_conn ad_conn (public) lang::user::package_level_locale->ad_conn lang::system::use_package_level_locales_p lang::system::use_package_level_locales_p (public) lang::user::package_level_locale->lang::system::use_package_level_locales_p lang::user::package_level_locale_not_cached lang::user::package_level_locale_not_cached (private) lang::user::package_level_locale->lang::user::package_level_locale_not_cached sec_session_timeout sec_session_timeout lang::user::package_level_locale->sec_session_timeout util_memoize util_memoize (public) lang::user::package_level_locale->util_memoize lang::conn::locale_not_cached lang::conn::locale_not_cached (private) lang::conn::locale_not_cached->lang::user::package_level_locale lang::user::locale lang::user::locale (public) lang::user::locale->lang::user::package_level_locale packages/acs-lang/www/change-locale-include.tcl packages/acs-lang/ www/change-locale-include.tcl packages/acs-lang/www/change-locale-include.tcl->lang::user::package_level_locale

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

[ hide source ] | [ make this the default ]
Show another procedure: