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.11 -r1.12
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	13 Sep 2002 10:54:05 -0000	1.11
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	14 Sep 2002 19:26:11 -0000	1.12
@@ -87,6 +87,11 @@
 
   array set attributes $tag_attributes
 
+  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)"
+  }
+
   set output "<input type=\"$type\" name=\"$element(name)\""
 
   if { [info exists element(value)] } {