Index: openacs-4/packages/acs-templating/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/widget-procs.tcl,v
diff -u -N -r1.55 -r1.56
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl 1 Oct 2017 12:16:05 -0000 1.55
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl 5 Dec 2017 15:37:18 -0000 1.56
@@ -308,6 +308,7 @@
attribute_reference
{value {}}
{mode edit}
+ {tag textarea}
} {
Do the actual construction of a textarea widget, called by various user-callable
widgets.
@@ -324,24 +325,29 @@
upvar $attribute_reference attributes
if { $mode ne "edit" } {
- set output {}
+ set output ""
if { $value ne "" } {
- append output "[ns_quotehtml $value]"
+ append output \
+ [ns_quotehtml $value] \
+ ""
}
} else {
- set output ""
+ append output ">[ns_quotehtml $value]$tag>"
}
-
+
return $output
}