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.264 -r1.7.2.265 --- openacs-4/packages/xowf/tcl/test-item-procs.tcl 13 Jan 2023 10:11:16 -0000 1.7.2.264 +++ openacs-4/packages/xowf/tcl/test-item-procs.tcl 17 Jan 2023 11:15:44 -0000 1.7.2.265 @@ -7098,10 +7098,20 @@ # Provide question info block. # set HTML [:question_overview_block $obj] + append HTML [:question_statistics_block $obj] + return $HTML + } + + #---------------------------------------------------------------------- + # Class: Question_manager + # Method: question_statistics_block + #---------------------------------------------------------------------- + :public method question_statistics_block {obj} { # # When we have results, we can provide statistics # + set HTML "" if {[$obj state] in {done submission_review}} { template::head::add_link -rel stylesheet -href /resources/xowf/test-item.css