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 -r1.31 -r1.32
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl 22 Oct 2003 14:51:38 -0000 1.31
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl 1 Dec 2003 15:26:01 -0000 1.32
@@ -287,28 +287,19 @@
}
# Handle display mode of visible normal form elements, i.e. not hidden, not submit, not button, not clear
- if { ![string equal $element(mode) "edit"] && ![string equal $type "hidden"] && \
- ![string equal $type "submit"] && ![string equal $type "button"] && \
- ![string equal $type "clear"] } {
-
- set output ""
- switch $type {
- checkbox - radio {
- # There's a 'subst' done on the contents here
- append output ""
- # This is ugly, but it works: Only export the value when we're on a selected option
- append output "\[ad_decode \$checked \"\" \"\" \"\"]"
- }
- default {
- if { [info exists element(value)] } {
+ if { ![string equal $element(mode) "edit"] && [lsearch -exact { hidden submit button clear checkbox radio } $type] == -1 } {
+ set output ""
+ if { [info exists element(value)] } {
append output [ad_quotehtml $element(value)]
append output ""
- }
}
- }
} else {
- set output "