Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v diff -u -r1.284.2.47 -r1.284.2.48 --- openacs-4/packages/xowiki/tcl/form-field-procs.tcl 3 Nov 2019 18:27:26 -0000 1.284.2.47 +++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl 4 Nov 2019 10:44:52 -0000 1.284.2.48 @@ -479,7 +479,7 @@ } FormField instproc is_disabled {} { - return [expr {[info exists :disabled] && ${:disabled} != "false"}] + return [expr {[info exists :disabled] && [string is true -strict ${:disabled}]}] } @@ -3280,7 +3280,7 @@ lappend fields [list $rep "text,$disabled_as_div,correct_when=[::xowiki::formfield::FormField fc_encode $a],disabled=$disabled,label="] } - #:log "TEXT text_fields fields <$fields>" + #:log "TEXT text_fields fields\n[join $fields \n]>" :create_components $fields #:log "TEXT text_fields components <${:components}>"