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 -N -r1.7.2.245 -r1.7.2.246 --- openacs-4/packages/xowf/tcl/test-item-procs.tcl 2 Sep 2022 11:15:57 -0000 1.7.2.245 +++ openacs-4/packages/xowf/tcl/test-item-procs.tcl 20 Sep 2022 11:28:16 -0000 1.7.2.246 @@ -6286,6 +6286,11 @@ set positions [lmap form_obj $form_objs {incr position}] } + set question_count_label "" + if {!$no_position} { + set question_count_label " / [:question_count $obj] " + } + foreach form_obj $form_objs number $numbers position $positions { set form_obj [:FL rename_attributes $form_obj] set form_title [$form_obj title] @@ -6309,7 +6314,7 @@ } set title "" if {$number ne ""} { - append title "$question_number_label $number / [:question_count $obj] :" + append title "$question_number_label $number $question_count_label:" } set title_components {}