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 -N -r1.284.2.152 -r1.284.2.153 --- openacs-4/packages/xowiki/tcl/form-field-procs.tcl 18 Mar 2021 00:41:39 -0000 1.284.2.152 +++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl 22 Mar 2021 13:44:42 -0000 1.284.2.153 @@ -4573,6 +4573,16 @@ return "" } + text_fields instproc render_help_text {} { + # + # In case, all the components have no correct_when conditions, + # omit the help text ("subquestion" summary). + # + set joined_conditions [join [lmap c ${:components} {set _ [$c set correct_when]}] ""] + if {$joined_conditions ne ""} { + next + } + } text_fields instproc render_input {} { # # Render content within in a fieldset, but with labels etc.