lang::system::set_locale (public)

 lang::system::set_locale [ -package_id package_id ] locale

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

Set system locale setting for a given package instance, or the site-wide system locale.

Switches:

-package_id (optional)

The package for which you want to set the locale setting, if you want to set system setting for one package only. Leave blank for site-wide setting.

Parameters:

locale (required)

The new locale that you want to use as your system locale.

Testcases:

dt_localized_procs, locale__test_system_package_setting, test_get_locales, link_tests, slot_interactions, path_resolve

Source code:

    if { $package_id eq "" } {

        parameter::set_value  -package_id [apm_package_id_from_key "acs-lang"]  -parameter SiteWideLocale  -value $locale

    } else {
        # Update the setting
        db_dml update_system_locale {}

        # Flush the cache
        util_memoize_flush [list lang::system::package_level_locale_not_cached $package_id]

        # TODO: We will need to have site-map inheritance for this, so packages under a subsite/dotlrn inherit the subsite's/dotlrn's setting
    }

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

<fullquery name="lang::system::set_locale.update_system_locale">
    <querytext>
        update apm_packages
        set    default_locale = :locale 
        where  package_id = :package_id
      </querytext>
</fullquery>

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