lang::util::iso6392_from_locale (public)

 lang::util::iso6392_from_locale -locale locale

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

Returns the ISO-639-2 code for a locale.

Switches:

-locale (required)

Locale to get the language ISO-639-2 code for

Returns:

The ISO-639-2 language code for the locale

Testcases:

test_get_locales

Source code:

    # Don't use string range since 3 digits languages may be used
    set language [lindex [split $locale "_"] 0]
    return [lang::util::iso6392_from_language -language $language]

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

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