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.211 -r1.7.2.212 --- openacs-4/packages/xowf/tcl/test-item-procs.tcl 31 Jan 2022 17:22:26 -0000 1.7.2.211 +++ openacs-4/packages/xowf/tcl/test-item-procs.tcl 1 Feb 2022 13:33:52 -0000 1.7.2.212 @@ -4689,6 +4689,15 @@ property {default ""} } { + # + # Retrieve a property value from the exam statistics result + # page. This page is an instance of the exam statistics workflow + # stored as a child of the exam object. + # + # @param obj the exam object + # @param property the property name + # @param deafult default value when property is not found + # set p [$obj childpage -name en:result -form inclass-exam-statistics.wf] set instance_attributes [$p instance_attributes] if {[dict exists $instance_attributes $property]} {