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 (required)

Name of the widget.

attribute_reference (required)

Reference variable to the tag_attributes passed to the calling widget proc.

value (optional)

Optional value

mode (optional, defaults to "edit")

If edit, output the textarea HTML, otherwise pass along the value (if it exists) in a hidden HTML input tag

tag (optional, 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