Index: openacs-4/packages/spreadsheet/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/spreadsheet/tcl/form-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/spreadsheet/tcl/form-procs.tcl	3 Mar 2011 23:09:43 -0000	1.15
+++ openacs-4/packages/spreadsheet/tcl/form-procs.tcl	9 Mar 2011 17:54:10 -0000	1.16
@@ -732,7 +732,14 @@
             lappend tag_attributes_list $attribute $attributes_arr($attribute)
         } 
     }
-    set tag_html "<input[qf_insert_attributes $tag_attributes_list]>$value</textarea>"
+
+    # by default, wrap the input with a label tag for better UI
+    if { [info exists attributes_arr(id) ] && [info exists attributes_arr(type) ] && $attributes_arr(type) ne "hidden" } {
+        set tag_html "<label for=\"${attributes_arr(id)}\"><input[qf_insert_attributes $tag_attributes_list]>$value</label>"
+    } else {
+        set tag_html "<input[qf_insert_attributes $tag_attributes_list]>$value"
+    }
+
     # set results  __form_arr, we checked form id above.
     append __form_arr($attributes_arr(form_id)) "${tag_html}\n"