Index: openacs-4/packages/acs-templating/tcl/date-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/date-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	9 May 2001 05:15:58 -0000	1.2
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	12 Dec 2001 20:54:47 -0000	1.3
@@ -528,8 +528,8 @@
      # Display text entry for some elements, or if the type is text
      if { [string equal $type t] ||
           [regexp "year|short_year" $fragment] } {
-       return "<input type=text name=$element(name).$fragment size=$size 
-     maxlength=$size value=\"[template::util::leadingPad $value $size]\">\n"
+       return "<input type=\"text\" name=\"$element(name).$fragment\" size=\'$size\"
+     maxlength=\"$size\" value=\"[template::util::leadingPad $value $size]\"/>\n"
      } else {
      # Use a default range for others
        set interval [template::util::date::defaultInterval $fragment]
@@ -628,9 +628,9 @@
 
   # Just remember the format for now - in the future, allow
   # the user to enter a freeform format
-  append output "<input type=hidden name=$element(name).format "
-  append output "value=\"$element(format)\">\n"
-  append output "<table border=0 cellpadding=0 cellspacing=2>\n<tr>"
+  append output "<input type=\"hidden\" name=\"$element(name).format\" "
+  append output "value=\"$element(format)\" />\n"
+  append output "<table border=\"0\" cellpadding=\"0\" cellspacing=\"2\">\n<tr>"
 
   # Prepare the value to set defaults on the form
   if { [info exists element(value)] && 
@@ -659,7 +659,7 @@
     regexp -nocase $template::util::date::token_exp $word \
           match token type
 
-    append output "<td nowrap>"
+    append output "<td nowrap=\"nowrap\">"
     
     lappend tokens $token
 
@@ -690,7 +690,7 @@
     append output "<tr>" 
     foreach token $tokens {
       set fragment_def $template::util::date::fragment_widgets($token)
-      append output "<td nowrap align=center><font size=\"-2\">[lindex $fragment_def 3]</font></td>"
+      append output "<td nowrap=\"nowrap\" align=\"center\"><font size=\"-2\">[lindex $fragment_def 3]</font></td>"
     }
     append output "</tr>\n"
   } 
Index: openacs-4/packages/acs-templating/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/form-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-templating/tcl/form-procs.tcl	9 May 2001 05:15:58 -0000	1.2
+++ openacs-4/packages/acs-templating/tcl/form-procs.tcl	12 Dec 2001 20:54:47 -0000	1.3
@@ -245,7 +245,7 @@
     set properties(action) [ns_conn url]
   }
   
-  set output "<form name=\"$id\" method=$properties(method) 
+  set output "<form name=\"$id\" method=\"$properties(method)\" 
                     action=\"$properties(action)\""
 
   # append attributes to form tag
@@ -259,7 +259,7 @@
 
   append output ">"
 
-  append output "<input type=hidden name=\"form:id\" value=\"$id\">"
+  append output "<input type=\"hidden\" name=\"form:id\" value=\"$id\" />"
 
   return $output
 }
@@ -474,7 +474,7 @@
 
     append export_data "
       <input type=\"hidden\" name=\"$key\" 
-             value=\"[template::util::quote_html $value]\">"
+             value=\"[template::util::quote_html $value]\" />"
   }
 
   return $export_data
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) {}] } {