Index: openacs-4/packages/xowf/lib/inclass-exam.wf
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/lib/Attic/inclass-exam.wf,v
diff -u -r1.1.2.24 -r1.1.2.25
--- openacs-4/packages/xowf/lib/inclass-exam.wf	25 Apr 2020 21:35:12 -0000	1.1.2.24
+++ openacs-4/packages/xowf/lib/inclass-exam.wf	26 Apr 2020 20:14:20 -0000	1.1.2.25
@@ -441,9 +441,10 @@
   :proc www-print-answers {} {
     set HTML ""
     set heading ""
-    set as_student [${:package_id} query_parameter as_student:boolean 0]
+    set as_student  [${:package_id} query_parameter as_student:boolean 0]
     set combined_form_info [::xowf::test_item::question_manager combined_question_form [self]]
-    set autograde [dict get $combined_form_info autograde]
+    set autograde   [dict get $combined_form_info autograde]
+    set totalPoints [::xowf::test_item::question_manager total_minutes $combined_form_info]
 
     set ctx [::xowf::Context require [self]]
     set wf [xowf::test_item::answer_manager get_answer_wf [self]]
@@ -511,6 +512,7 @@
             if {$autograde} {
               set achieved_points [xowf::test_item::answer_manager achieved_points \
                                        -answer_object $i -answer_attributes $answerAttributes]
+              dict set achieved_points totalPoints $totalPoints
             }
           }
         }
@@ -576,7 +578,7 @@
             }
             if {[dict exists $image $ts camera-audio]} {
               set ext [dict get $image $ts camera-audio]
-              append markup [subst {<audio src="$img_url&type=camera-audio&ts=$ts&e=$ext">}]
+              append markup [subst {<audio controls src="$img_url&type=camera-audio&ts=$ts&e=$ext" type="video/webm"></audio>}]
             }
             append markup </div>\n
           }