util::json::array2json (private)

 util::json::array2json arrayVal

Defined in packages/acs-tcl/tcl/json-procs.tcl

Generate a JSON string for a two-element Tcl JSON array list.

Parameters:

arrayVal - [list array values]

Returns:

Valid JSON array string.

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

Testcases:

No testcase defined.

Source code:

    set values {}
    foreach val $arrayVal {
        if { $val eq "" } {
            lappend values "\"\""
        } else {
            lappend values [util::json::gen_inner $val]
        }
    }
    return "\[[ns_dbquotelist $values]\]"

XQL Not present:

Generic, PostgreSQL, Oracle