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 "\n" + append output "value=\"$element(format)\" >\n" append output "\n" # Prepare the value to set defaults on the form @@ -1354,8 +1354,8 @@ } if { [string equal $element(mode) "edit"] } { - append output "" - append output "" + append output "" + append output "" } else { append output $textdate append output ""