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 "<input type=\"$type\" name=\"$element(name)\""
 
-  if { ![string equal $element(mode) "edit"] && ![string equal $element(widget) "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 "<img src=\"/shared/images/${type}\$checked\" width=\"13\" height=\"13\">"
-        # This is ugly, but it works: Only export the value when we're on a selected option
-        append output "\[ad_decode \$checked \"checked\" \"<input type=\\\"hidden\\\" name=\\\"$element(name)\\\" value=\\\"\$value\\\">\" \"\"\]"
+    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 "<input type=\"hidden\" name=\"$element(name)\" value=\"[ad_quotehtml $element(value)]\">"
-        }
-      }
     }
-  } else {
-    set output "<input type=\"$type\" name=\"$element(name)\""
 
     if { [info exists element(maxlength)] } {
         append output " maxlength=\"$element(maxlength)\""
@@ -206,8 +196,6 @@
   return $output
 }
 
-
-
 ad_proc -public template::widget::text { element_reference tag_attributes } {
 
   upvar $element_reference element