Index: openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl,v
diff -u -r1.56.2.2 -r1.56.2.3
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	2 Mar 2007 19:06:07 -0000	1.56.2.2
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	6 Mar 2007 07:45:25 -0000	1.56.2.3
@@ -863,7 +863,6 @@
 
     # Check that any acquire and get_property attributes are supported by their element's datatype
     # These are needed at submission and fill-the-form-with-db-values time 
-
     foreach element_name $af_element_names($form_name) {
         if { [llength $element_name] == 1 } {
             if { [info exists af_from_sql(${form_name}__$element_name)] } {
@@ -991,7 +990,7 @@
                     return -code error "Couldn't get the next value from sequence: $errmsg\""
                 }
                 set values(__new_p) 1
-
+		
                 if { [info exists new_request] } {
                     ad_page_contract_eval uplevel #$level $new_request
                     # LARS: Set form values based on local vars in the new_request block
@@ -1088,7 +1087,6 @@
                             lappend args [list $element_name [uplevel #$level [list set $element_name]]]
                         }
                     }
-
                     # This is serious abuse of ad_return_exception_template, but hell, I wrote it so I'm entitled ...
                     ad_return_exception_template -status 200 -params $args $confirm_template
 
Index: openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/table-display-procs.tcl,v
diff -u -r1.11 -r1.11.12.1
--- openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl	28 Aug 2003 09:41:43 -0000	1.11
+++ openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl	6 Mar 2007 07:45:25 -0000	1.11.12.1
@@ -601,8 +601,8 @@
     if {![empty_string_p $item]} {
         append html "<h2>Editing <strong>$item</strong></h2>"
         append html "<form method=\"get\" action=\"/tools/table-custom\">"
-        append html "<input type=\"submit\" value=\"Delete this view\" />"
-        append html "<input type=\"hidden\" name=\"delete_the_view\" value=\"1\" />"
+        append html "<input type=\"submit\" value=\"Delete this view\" >"
+        append html "<input type=\"hidden\" name=\"delete_the_view\" value=\"1\" >"
         append html "[export_form_vars item_group item]"
         if {![empty_string_p $return_url]} {
             append html "[export_form_vars return_url]"
@@ -622,13 +622,13 @@
     if {![empty_string_p $item]} {
         set item_original $item
         append html "[export_form_vars item_original]"
-        append html "<input type=\"submit\" value=\"Save changes\" />"
+        append html "<input type=\"submit\" value=\"Save changes\" >"
     } else {
-        append html "<input type=\"submit\" value=\"Save new view\" />"
+        append html "<input type=\"submit\" value=\"Save new view\" >"
     }
 
     append html "<table>"
-    append html "<tr><th>Name:</th><td><input type=\"text\" size=\"60\" name=\"item\" [export_form_value item] /></td></tr>"
+    append html "<tr><th>Name:</th><td><input type=\"text\" size=\"60\" name=\"item\" [export_form_value item] ></td></tr>"
     if {![empty_string_p $item]} {
         set item_original item
         append html "[export_form_vars item_original]"
@@ -660,7 +660,7 @@
         append html "</tr>"
 
         foreach opt $sel_list { 
-            append options "<td><input name=\"col_@@\" type=\"radio\" value=\"[lindex [lindex $datadef $opt] 0]\" /></td>"
+            append options "<td><input name=\"col_@@\" type=\"radio\" value=\"[lindex [lindex $datadef $opt] 0]\" ></td>"
         }
         for {set i 0} { $i < $max_columns} {incr i} {
             if {$i < $n_sel_columns} {
@@ -726,8 +726,8 @@
     if {![empty_string_p $item]} {
         append html "<h2>Editing <strong>$item</strong></h2>"
         append html "<form method=\"get\" action=\"/tools/sort-custom\">"
-        append html "<input type=\"submit\" value=\"Delete this sort\" />"
-        append html "<input type=\"hidden\" name=\"delete_the_sort\" value=\"1\" />"
+        append html "<input type=\"submit\" value=\"Delete this sort\" >"
+        append html "<input type=\"hidden\" name=\"delete_the_sort\" value=\"1\" >"
         append html "[export_form_vars item_group item]"
         if {![empty_string_p $return_url]} {
             append html "[export_form_vars return_url]"
@@ -966,7 +966,7 @@
     }
     set item_original $item
     append html "[export_form_vars item_group item item_original]\n"
-    append html "<input type=\"submit\" value=\"Save settings\" />"
+    append html "<input type=\"submit\" value=\"Save settings\" >"
 }
 
 proc_doc ad_dimensional_settings {define current} {
Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.91.2.1 -r1.91.2.2
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	14 Dec 2006 13:55:10 -0000	1.91.2.1
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	6 Mar 2007 07:45:25 -0000	1.91.2.2
@@ -823,7 +823,7 @@
 	set export_string [join $export_list "&"]
     } else {
 	for { set i 0 } { $i < $export_size } { incr i } {
-	    append export_string "<input type=\"hidden\" name=\"[ad_quotehtml [ns_set key $export_set $i]]\" value=\"[ad_quotehtml "[ns_set value $export_set $i]"]\" />\n"
+	    append export_string "<input type=\"hidden\" name=\"[ad_quotehtml [ns_set key $export_set $i]]\" value=\"[ad_quotehtml "[ns_set value $export_set $i]"]\" >\n"
 	}
     }
 
@@ -997,7 +997,7 @@
 	set export_list [list]
 	foreach varname [array names export] {
 	    lappend export_list "<input type=\"hidden\" name=\"[ad_quotehtml $varname]\"\
-		    value=\"[ad_quotehtml $export($varname)]\" />"
+		    value=\"[ad_quotehtml $export($varname)]\" >"
 	}
 	return [join $export_list \n]
     }
@@ -1043,15 +1043,15 @@
 	    switch $type {
 		multiple {
 		    foreach item $value {
-			append hidden "<input type=\"hidden\" name=\"[ad_quotehtml $var]\" value=\"[ad_quotehtml $item]\" />\n"
+			append hidden "<input type=\"hidden\" name=\"[ad_quotehtml $var]\" value=\"[ad_quotehtml $item]\" >\n"
 		    }
 		}
 		default {
-		    append hidden "<input type=\"hidden\" name=\"[ad_quotehtml $var]\" value=\"[ad_quotehtml $value]\" />\n"
+		    append hidden "<input type=\"hidden\" name=\"[ad_quotehtml $var]\" value=\"[ad_quotehtml $value]\" >\n"
 		}
 	    }
 	    if { $sign_p } {
-		append hidden "<input type=\"hidden\" name=\"[ad_quotehtml "$var:sig"]\" value=\"[ad_quotehtml [ad_sign $value]]\" />\n"
+		append hidden "<input type=\"hidden\" name=\"[ad_quotehtml "$var:sig"]\" value=\"[ad_quotehtml [ad_sign $value]]\" >\n"
 	    }
 	}
     }
@@ -1074,7 +1074,7 @@
 	for {set i 0} {$i<[ns_set size $the_form]} {incr i} {
 	    set varname [ns_set key $the_form $i]
 	    set varvalue [ns_set value $the_form $i]
-	    append hidden "<input type=\"hidden\" name=\"[ad_quotehtml $varname]\" value=\"[ad_quotehtml $varvalue]\" />\n"
+	    append hidden "<input type=\"hidden\" name=\"[ad_quotehtml $varname]\" value=\"[ad_quotehtml $varvalue]\" >\n"
 	}
     }
     return $hidden
@@ -1119,7 +1119,7 @@
     if {$format == "url"} {
         return [join $return_list "&"]
     } else {
-        return "<input type=\"hidden\" [join $return_list " />\n <input type=\"hidden\" "] />"
+        return "<input type=\"hidden\" [join $return_list " />\n <input type=\"hidden\" "] >"
     }
 }
 
Index: openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl,v
diff -u -r1.7 -r1.7.10.1
--- openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl	24 Feb 2004 11:20:01 -0000	1.7
+++ openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl	6 Mar 2007 07:45:25 -0000	1.7.10.1
@@ -235,15 +235,15 @@
 	    }
 	} if_no_rows {
 	    if {![empty_string_p $default]} { 
-		return "<input type=\"hidden\" value=\"[philg_quote_double_quotes $default]\" name=\"$name\" />\n"
+		return "<input type=\"hidden\" value=\"[philg_quote_double_quotes $default]\" name=\"$name\" >\n"
 	    } else { 
 		return {}            
 	    }
 	}
     }
 
     if { $count == 1 || ($dbcount == 1 && $hidden_if_one_db) } {
-        return "$item<input type=\"hidden\" value=\"[philg_quote_double_quotes $value]\" name=\"$name\" />\n"
+        return "$item<input type=\"hidden\" value=\"[philg_quote_double_quotes $value]\" name=\"$name\" >\n"
     } elseif {!$count && !$dbcount && $blank_if_no_db} {
 	return {}
     } else { 
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.37.2.4 -r1.37.2.5
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	3 Mar 2007 20:35:18 -0000	1.37.2.4
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	6 Mar 2007 07:41:10 -0000	1.37.2.5
@@ -887,7 +887,7 @@
              append output " $attribute_name=\"$attributes($attribute_name)\""
            }
          }
-         append output "/>\n"
+         append output ">\n"
          return $output
        } else {
          # Use a default range for others
@@ -1010,7 +1010,7 @@
   # 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 "value=\"$element(format)\" >\n"
   append output "<table border=\"0\" cellpadding=\"0\" cellspacing=\"2\">\n"
 
   # Prepare the value to set defaults on the form
@@ -1354,8 +1354,8 @@
   }
 
   if { [string equal $element(mode) "edit"] } {
-      append output "<input type=\"text\" name=\"$element(id)\" size=\"10\" maxlength=\"10\" id=\"$element(id)_input_field\" value=\"[ad_quotehtml $textdate]\" />"
-      append output "<input type=\"button\" style=\"border-width: 0px; height: 17px; width: 19px; background-image: url('/resources/acs-templating/calendar.gif'); background-repeat: no-repeat; cursor: pointer;\" onclick=\"return showCalendarWithDefault('$element(id)_input_field', '$javascriptdate', '[template::util::textdate_localized_format]');\" />"
+      append output "<input type=\"text\" name=\"$element(id)\" size=\"10\" maxlength=\"10\" id=\"$element(id)_input_field\" value=\"[ad_quotehtml $textdate]\" >"
+      append output "<input type=\"button\" style=\"border-width: 0px; height: 17px; width: 19px; background-image: url('/resources/acs-templating/calendar.gif'); background-repeat: no-repeat; cursor: pointer;\" onclick=\"return showCalendarWithDefault('$element(id)_input_field', '$javascriptdate', '[template::util::textdate_localized_format]');\" >"
   } else {
       append output $textdate
       append output "<input type=\"hidden\" name=\"$element(id)\" value=\"[ad_quotehtml $textdate]\">"
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.32.6.3 -r1.32.6.4
--- openacs-4/packages/acs-templating/tcl/form-procs.tcl	3 Mar 2007 00:19:23 -0000	1.32.6.3
+++ openacs-4/packages/acs-templating/tcl/form-procs.tcl	6 Mar 2007 07:42:08 -0000	1.32.6.4
@@ -839,7 +839,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/richtext-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/richtext-procs.tcl,v
diff -u -r1.25.2.1 -r1.25.2.2
--- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	12 Jan 2007 18:58:42 -0000	1.25.2.1
+++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	6 Mar 2007 07:42:08 -0000	1.25.2.2
@@ -264,7 +264,7 @@
 
       append output [textarea_internal "$element(id)" attributes $contents]
       if { $htmlarea_p } {
-          append output "<input name=\"$element(id).format\" value=\"text/html\" type=\"hidden\"/>"
+          append output "<input name=\"$element(id).format\" value=\"text/html\" type=\"hidden\">"
       } else {
           append output "<br/>Format: [menu $element(id).format [template::util::richtext::format_options] $format attributes]"
       }
@@ -436,9 +436,9 @@
 	# some others)
 	append output "<noscript><br/>Format: $format_menu</noscript>\n"
 
-	set output "<script type='text/javascript'><!--\nwriteRichText('$element(id)','$contents',500,200,true,false,'<input name=\"$element(id).format\" value=\"text/html\" type=\"hidden\"/>','[string map {\n \\n \r {} "'" "&\#39"} $output]'); //--></script><noscript id=\"rte-noscr-$element(id)\">$output</noscript>"
+	set output "<script type='text/javascript'><!--\nwriteRichText('$element(id)','$contents',500,200,true,false,'<input name=\"$element(id).format\" value=\"text/html\" type=\"hidden\">','[string map {\n \\n \r {} "'" "&\#39"} $output]'); //--></script><noscript id=\"rte-noscr-$element(id)\">$output</noscript>"
       } elseif {$richtextEditor eq "xinha"} {
-	append output "<script>document.write(\"<input name='$element(id).format' value='text/html' type='hidden'/>\");</script>\n"
+	append output "<script>document.write(\"<input name='$element(id).format' value='text/html' type='hidden'>\");</script>\n"
 	append output "<noscript><br/>Format: $format_menu</noscript>\n"
 	
 	# we have a xinha richtext widget, specified by "options {editor xinha}"
Index: openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl,v
diff -u -r1.16 -r1.16.2.1
--- openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl	29 Jul 2006 23:10:33 -0000	1.16
+++ openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl	6 Mar 2007 07:42:08 -0000	1.16.2.1
@@ -113,7 +113,7 @@
                 # form data by richtext validation DAVEB
                 template::element::set_properties $element(form_id) $element(id) -datatype text
 		append formtext_to_display "
-<input type=\"hidden\" name=\"$element(id).format\" value=\"$format\" />"
+<input type=\"hidden\" name=\"$element(id).format\" value=\"$format\" >"
 	    }
 
 	    # This is needed in order to display the form text noquoted in the "show errors" page ...
@@ -295,7 +295,7 @@
 	set wordlen [string length $errword]
 	
 	if { [string equal "miss" $errtype] } {
-	    regsub "\#$errnum\#" $formtext "<input type=\"text\" name=\"${var_to_spellcheck}.error_$errnum\" value=\"$errword\" size=\"$wordlen\" />" formtext
+	    regsub "\#$errnum\#" $formtext "<input type=\"text\" name=\"${var_to_spellcheck}.error_$errnum\" value=\"$errword\" size=\"$wordlen\" >" formtext
 	} elseif { [string equal "nearmiss" $errtype] } {
 	    regsub -all ", " $erroptions "," erroptions
 	    set options [split $erroptions ","]
@@ -323,7 +323,7 @@
     regsub -all {<a [^<]*>} $formtext_to_display "<u>" formtext_to_display
     regsub -all {</a>} $formtext_to_display "</u>" formtext_to_display
 
-    append formtext_to_display "<input type=\"hidden\" name=\"${var_to_spellcheck}.merge_text\" value=\"[ad_quotehtml $processed_text]\" />"
+    append formtext_to_display "<input type=\"hidden\" name=\"${var_to_spellcheck}.merge_text\" value=\"[ad_quotehtml $processed_text]\" >"
 
 
     ####
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.42.2.3 -r1.42.2.4
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	27 Feb 2007 08:51:52 -0000	1.42.2.3
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	6 Mar 2007 07:42:08 -0000	1.42.2.4
@@ -72,11 +72,11 @@
 
     } else {
 
-        set output "<input type=\"hidden\" name=\"$element(id):select\" value=\"t\" />"
-        append output "<input type=\"hidden\" name=\"$element(id):search_string\" value=\"$element(search_string)\" />"
+        set output "<input type=\"hidden\" name=\"$element(id):select\" value=\"t\" >"
+        append output "<input type=\"hidden\" name=\"$element(id):search_string\" value=\"$element(search_string)\" >"
 
         if { ![info exists element(confirmed_p)] } {
-            append output "<input type=\"hidden\" name=\"$element(id):confirmed_p\" value=\"t\" />"
+            append output "<input type=\"hidden\" name=\"$element(id):confirmed_p\" value=\"t\" >"
         }
 
         append output [select $element_reference $tag_attributes]
@@ -236,7 +236,7 @@
         # include an extra hidden element to indicate that the
         # value is being selected as opposed to entered
 
-        set output "\n<input type=\"hidden\" name=\"$element(id):select\" value=\"t\" />"
+        set output "\n<input type=\"hidden\" name=\"$element(id):select\" value=\"t\" >"
         append output [select element $tag_attributes]
 
     }
@@ -410,7 +410,7 @@
             append output " maxlength=\"$element(maxlength)\""
         }
 
-        append output " />"
+        append output " >"
     }
 
     return $output
@@ -654,7 +654,7 @@
                         append output " selected=\"selected\""
                     }
 
-                    append output ">$label<br />\n"
+                    append output ">$label<br>\n"
                 }
             }
             default {