lang::util::language_label (public)

 lang::util::language_label -language language

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

Returns the ISO-639 label for a language code.

Switches:

-language (required)

Language, using ISO-639 code (2 or 3 chars)

Returns:

The ISO-639 label for the language

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

Testcases:

test_get_locales

Source code:

    set lang_label ""
    set lang_len [string length $language]
    if { $lang_len == 2 } {
        # input is iso-639-1 language code

        set lang_label [db_string get_label_from_iso1 {} -default ""]

    } elseif { $lang_len == 3 } {
        # input is iso-639-2 language code
        # we check in the table in case the language code is wrong

        set lang_label [db_string get_label_from_iso2 {} -default ""]
    }

    return $lang_label

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

<fullquery name="lang::util::language_label.get_label_from_iso1">
    <querytext>
      
      select label
      from   language_639_2_codes
      where  iso_639_1 = :language
    
    </querytext>
</fullquery>

<fullquery name="lang::util::language_label.get_label_from_iso2">
    <querytext>
      
      select label
      from   language_639_2_codes
      where  iso_639_2 = :language
    
    </querytext>
</fullquery>

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