template::util::richtext::set_property (public)

 template::util::richtext::set_property what richtext_list value

Defined in packages/acs-templating/tcl/richtext-procs.tcl

Set a property of the richtext datatype.

Parameters:
what (required)
One of
  • contents (synonyms content, text)
  • format (synonym mime_type)
richtext_list (required)
the richtext list to modify
value (required)
the new value
Returns:
the modified list

Partial Call Graph (max 5 caller/called nodes):
%3 packages/acs-admin/www/auth/authority.tcl packages/acs-admin/ www/auth/authority.tcl template::util::richtext::set_property template::util::richtext::set_property packages/acs-admin/www/auth/authority.tcl->template::util::richtext::set_property template::data::transform::spellcheck template::data::transform::spellcheck (public) template::data::transform::spellcheck->template::util::richtext::set_property template::util::richtext::acquire template::util::richtext::acquire (public) template::util::richtext::acquire->template::util::richtext::set_property

Testcases:
No testcase defined.
Source code:
    lassign $richtext_list contents format

    switch -- $what {
        contents - content - text {
            # Replace contents with value
            return [list $value $format]
        }
        format - mime_type {
            # Replace format with value
            return [list $contents $value]
        }
        default {
            error "Invalid property $what, valid properties are text (synonyms content, contents), mime_type (synonym format)."
        }
    }
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: