util::json::object::set_value (public)

 util::json::object::set_value -object object -attribute attribute \
    -value value

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

Set an attribute value in an object structure. If the attribute doesn't exist in the object, it's created.

Switches:

-object (required)

The object we want to set the value in.

-attribute (required)

The name of the attribute.

-value (required)

The value to set attribute to.

Returns:

A new object with the attribute/value pair.

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

Testcases:

No testcase defined.

Source code:

    array set values [util::json::object::get_values $object]
    set values($attribute) $value
    return [util::json::object::create [array get values]]

XQL Not present:

Generic, PostgreSQL, Oracle