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