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 -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 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 "