Index: openacs-4/packages/xowf/tcl/test-item-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test-item-procs.tcl,v diff -u -r1.7.2.160 -r1.7.2.161 --- openacs-4/packages/xowf/tcl/test-item-procs.tcl 16 Sep 2021 18:16:44 -0000 1.7.2.160 +++ openacs-4/packages/xowf/tcl/test-item-procs.tcl 16 Sep 2021 18:35:52 -0000 1.7.2.161 @@ -4280,15 +4280,18 @@ if {$number ne ""} { append title "$question_number_label $number:" } + + set title_components {} if {$with_title} { - append title " $form_title" + lappend title_components [ns_quotehtml $form_title] } if {$with_minutes} { - append title " - [:minutes_string $form_obj]" + lappend title_components [:minutes_string $form_obj] } if {$with_points} { - append title " - [:points_string $form_obj]" + lappend title_components [:points_string $form_obj] } + append title " " [join $title_components " - "] if {!$titleless_form} { append full_form \