util::json::object2json (private)

 util::json::object2json objectVal

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

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

Parameters:

objectVal - [list object values]

Returns:

Valid JSON object string.

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

Testcases:

No testcase defined.

Source code:

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

XQL Not present:

Generic, PostgreSQL, Oracle