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 -N -r1.37 -r1.37.2.1
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	29 Jul 2006 23:10:33 -0000	1.37
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	13 Feb 2007 09:45:52 -0000	1.37.2.1
@@ -877,7 +877,7 @@
        # Display text entry for some elements, or if the type is text
        if { [string equal $type t] ||
             [regexp "year|short_year" $fragment] } {
-         set output "<input type=\"text\" name=\"$element(name).$fragment\" size=\"$size\""
+         set output "<input type=\"text\" name=\"$element(name).$fragment\" id=\"$element(name).$fragment\" size=\"$size\""
          append output " maxlength=\"$size\" value=\"[template::util::leadingPad $value $size]\""
          array set attributes $tag_attributes
          foreach attribute_name [array names attributes] {