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.19 -r1.20
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl 17 May 2003 10:05:27 -0000 1.19
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl 19 May 2003 12:30:32 -0000 1.20
@@ -174,27 +174,17 @@
} else {
set output ""
- # This is ugly, but it works: Only export the value when we're on a selected option
- append output "\[ad_decode \$checked \"checked\" \"\" \"\"\]"
+ if { [info exists element(value)] } {
+ append output " value=\"[template::util::quote_html $element(value)]\""
+ }
+
+ foreach name [array names attributes] {
+ if { [string equal $attributes($name) {}] } {
+ append output " $name"
+ } else {
+ append output " $name=\"$attributes($name)\""
}
- default {
- if { [info exists element(value)] } {
- append output [ad_quotehtml $element(value)]
- append output ""
- }
- }
}
- } else {
- set output "