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] {
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 -N -r1.42 -r1.42.2.1
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	28 Jul 2006 23:30:09 -0000	1.42
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	13 Feb 2007 09:45:52 -0000	1.42.2.1
@@ -279,7 +279,7 @@
         set mode {}
     }
 
-
+	set attributes(id) $element(name)
     set output [textarea_internal $element(name) attributes $value $mode]
 
     # Spell-checker
@@ -375,7 +375,10 @@
     if { ( [string equal $type "checkbox"] || [string equal $type "radio"] ) && [info exists element(value)] } {
         # This can be used in the form template in a <label for="id">...</label> tag.
         set attributes(id) "$element(form_id):elements:$element(name):$element(value)"
+    } elseif { [string equal $type "password"] || [string equal $type "text"] } { 
+		set attributes(id) "$element(name)" 
     }
+
     
     # Handle display mode of visible normal form elements, i.e. not hidden, not submit, not button, not clear
     if { ![string equal $element(mode) "edit"] && [lsearch -exact { hidden submit button clear checkbox radio } $type] == -1 } {
@@ -389,7 +392,7 @@
 
         if { ![string equal $element(mode) "edit"] && [lsearch -exact { hidden submit button clear } $type] == -1 } {
             append output " disabled"
-        }
+		}
 
         if { [info exists element(value)] } {
             append output " value=\"[template::util::quote_html $element(value)]\""
@@ -655,7 +658,7 @@
                 }
             }
             default {
-                append output "<select name=\"$widget_name\" "
+                append output "<select name=\"$widget_name\" id=\"$widget_name\" "
 
                 foreach name [array names attributes] {
                     if { [string equal $attributes($name) {}] } {