template::widget::textarea_internal (private)

 template::widget::textarea_internal name attribute_reference [ value ] \
    [ mode ] [ tag ]

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

Do the actual construction of a textarea widget, called by various user-callable widgets.

Parameters:

name - Name of the widget.
attribute_reference - Reference variable to the tag_attributes passed to the calling widget proc.
value (optional) - Optional value
mode (defaults to "edit") - If edit, output the textarea HTML, otherwise pass along the value (if it exists) in a hidden HTML input tag
tag (defaults to "textarea")

Returns:

Form HTML for widget

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

Testcases:

No testcase defined.

Source code:

    upvar $attribute_reference attributes

    if { $mode ne "edit" } {
        set output ""
        if { $value ne "" } {
            append output  [ns_quotehtml $value]  [subst {<input type="hidden" name="$name" value="[ns_quotehtml $value]">}]
        }
    } else {
        if {$tag ne "textarea"} {
            set output "<$tag"
        } else {
            set output "<textarea name=\"$name\""
        }

        foreach attribute_name [array names attributes] {
            if {$attributes($attribute_name) eq ""} {
                append output " $attribute_name"
            } else {
                append output " $attribute_name=\"[ns_quotehtml $attributes($attribute_name)]\""
            }
        }
        append output ">[ns_quotehtml $value]</$tag>"
    }

    return $output

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

packages/acs-templating/tcl/widget-procs.xql