ref_language::set_iso1 (private)

 ref_language::set_iso1 -code code -name name

Defined in packages/ref-language/tcl/ref-language-procs.tcl

Add a new ISO-639-1 language code (2 chars) if it doesn't exist, update it otherwise

Switches:

-code

(required)

-name

(required)

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

Testcases:

No testcase defined.

Source code:

    set exists_p [db_string get_lang {} -default 0]

    if { $exists_p } {
        db_dml update_lang {}
    } else {
        db_dml insert_lang {}
    }

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

<fullquery name="ref_language::set_iso1.get_lang">
    <querytext>

      select count(*) from language_codes
      where language_id = :code

    </querytext>
</fullquery>

<fullquery name="ref_language::set_iso1.update_lang">
    <querytext>

      update language_codes set name = :name
      where language_id = :code

    </querytext>
</fullquery>

<fullquery name="ref_language::set_iso1.insert_lang">
    <querytext>

      insert into language_codes (language_id, name)
      values (:code, :name)

    </querytext>
</fullquery>

packages/ref-language/tcl/ref-language-procs.xql