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.5 -r1.42.2.6
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	18 Mar 2007 22:32:48 -0000	1.42.2.5
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	18 Mar 2007 23:39:59 -0000	1.42.2.6
@@ -375,8 +375,8 @@
     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)" 
+    } elseif { [string equal $type "password"] || [string equal $type "text"] || [string equal $type "button"] || [string equal $type "file"]} { 
+	set attributes(id) "$element(name)" 
     }