Index: openacs-4/packages/xowf/tcl/xowf-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/xowf-procs.tcl,v
diff -u -r1.28.2.59 -r1.28.2.60
--- openacs-4/packages/xowf/tcl/xowf-procs.tcl	7 Aug 2021 09:48:25 -0000	1.28.2.59
+++ openacs-4/packages/xowf/tcl/xowf-procs.tcl	31 Oct 2021 19:55:38 -0000	1.28.2.60
@@ -1819,6 +1819,32 @@
     }
     return $correct
   }
+
+  WorkflowPage ad_instproc stats_record_count {name} {
+
+    Record that the specified question was used.
+
+  } {
+    dict incr :__stats_count $name
+  }
+
+  WorkflowPage ad_instproc stats_record_detail {
+    -label
+    -value
+    -name
+    -correctly_answered:boolean
+  } {
+  } {
+    dict set :__stats_label $name label $value $label
+    if {[info exists :__stats_success] && [dict exists ${:__stats_success} $name $value]} {
+      set details [dict get ${:__stats_success} $name $value]
+    } else {
+      set details ""
+    }
+    dict incr details $correctly_answered
+    dict set :__stats_success $name $value $details
+  }
+
   WorkflowPage instproc unset_temporary_instance_variables {} {
     # never save/cache the following variables
     array unset :__wfi