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.3 -r1.4
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	9 May 2001 05:15:58 -0000	1.3
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	12 Dec 2001 20:54:47 -0000	1.4
@@ -25,7 +25,7 @@
     # include an extra hidden element to indicate that the 
     # value is being selected as opposed to entered
 
-    set output "<input type=hidden name=$element(id):select value=t>"
+    set output "<input type=\"hidden\" name=\"$element(id):select\" value=\"t\" />"
     append output [select element $tag_attributes]
   }
 
@@ -42,7 +42,7 @@
 
   array set attributes $tag_attributes
 
-  set output "<textarea name=$element(name)"
+  set output "<textarea name=\"$element(name)\""
 
   foreach name [array names attributes] {
     if { [string equal $attributes($name) {}] } {
@@ -83,7 +83,7 @@
 
   array set attributes $tag_attributes
 
-  set output "<input type=$type name=$element(name)"
+  set output "<input type=\"$type\" name=\"$element(name)\""
 
   if { [info exists element(value)] } {
     append output " value=\"[template::util::quote_html $element(value)]\""
@@ -97,7 +97,7 @@
     }
   }
 
-  append output ">"
+  append output " />"
 
   return $output
 }
@@ -173,7 +173,7 @@
 
   upvar $attribute_reference attributes
 
-  set output "<select name=$widget_name "
+  set output "<select name=\"$widget_name\" "
 
   foreach name [array names attributes] {
     if { [string equal $attributes($name) {}] } {
@@ -196,10 +196,10 @@
     append output "  <option value=\"[template::util::quote_html $value]\" "
 
     if { [info exists values($value)] } {
-      append output "selected"
+      append output "selected=\"selected\""
     }
 
-    append output ">$label\n"
+    append output ">$label</option>\n"
   }
 
   append output "</select>"
@@ -286,7 +286,7 @@
 	    if { [string equal $format_property 0] } {
 		append output $value
 	    } else {
-		append output "<input text size=$format_property value=$value>"
+		append output "<input type=\"text\" size=\"$format_property\" value=\"$value\" />"
 	    }
 	    ns_log Notice "Values $i: [lindex $values $i]"
 	}
@@ -417,7 +417,7 @@
 
   array set attributes $tag_attributes
 
-  set output "<textarea name=$element(name)"
+  set output "<textarea name=\"$element(name)\""
 
   foreach name [array names attributes] {
     if { [string equal $attributes($name) {}] } {