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 $outputXQL Not present: PostgreSQL, Oracle Generic XQL file: packages/acs-templating/tcl/widget-procs.xql