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):
%3 util::json::object::create util::json::object::create (public) util::json::object::get_values util::json::object::get_values (public) util::json::object::set_value util::json::object::set_value util::json::object::set_value->util::json::object::create util::json::object::set_value->util::json::object::get_values

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
[ hide source ] | [ make this the default ]
Show another procedure: