Index: openacs-4/packages/xowf/lib/inclass-exam-answer.wf
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/lib/Attic/inclass-exam-answer.wf,v
diff -u -N -r1.1.2.14 -r1.1.2.15
--- openacs-4/packages/xowf/lib/inclass-exam-answer.wf	19 Apr 2020 19:34:08 -0000	1.1.2.14
+++ openacs-4/packages/xowf/lib/inclass-exam-answer.wf	26 Apr 2020 20:14:20 -0000	1.1.2.15
@@ -110,6 +110,7 @@
 Action logout \
     -next_state done \
     -label #xowf.inclass-exam-submit# \
+    -extra_css_class "logout" \
     -proc activate {obj} {
       [[$obj wf_context ] wf_container] addSignature $obj
       #set pid [$obj package_id]
@@ -420,6 +421,7 @@
 
     ${container}::${:state} actions $actions
   }
+  template::add_confirm_handler -CSSclass logout
 }
 
 #
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 -N -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
           }
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.53 -r1.7.2.54
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl	26 Apr 2020 14:21:28 -0000	1.7.2.53
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl	26 Apr 2020 20:14:20 -0000	1.7.2.54
@@ -1376,21 +1376,21 @@
       #
       set all_form_fields [::xowiki::formfield::FormField info instances -closure]
       set totalPoints 0
-      set totalPossiblePoints 0
+      set achieveablePoints 0
       foreach a [dict keys $answer_attributes] {
         set f [$answer_object lookup_form_field -name $a $all_form_fields]
         if {[$f exists correction_data]} {
           set cd [$f set correction_data]
           #ns_log notice "FOO: $a <$f> $cd"
           if {[dict exists $cd points]} {
             set totalPoints [expr {$totalPoints + [dict get $cd points]}]
-            set totalPossiblePoints [expr {$totalPossiblePoints + [$f set test_item_minutes]}]
+            set achieveablePoints [expr {$achieveablePoints + [$f set test_item_minutes]}]
           } else {
             ns_log notice "$a: no points in correction_data, ignoring in points calculation"
           }
         }
       }
-      return [list achievedPoints $totalPoints possiblePoints $totalPossiblePoints]
+      return [list achievedPoints $totalPoints achieveablePoints $achieveablePoints]
     }
 
     ########################################################################
@@ -1499,11 +1499,11 @@
       }
 
       if {$achieved_points ne ""} {
-        set possiblePoints [format %.2f [dict get $achieved_points possiblePoints]]
+        set totalPoints [format %.2f [dict get $achieved_points totalPoints]]
         set achievedPoints [format %.2f [dict get $achieved_points achievedPoints]]
-        set percentage [format %.2f [expr {$possiblePoints > 0 ? ($achievedPoints*100.0/$possiblePoints) : 0}]]
+        set percentage [format %.2f [expr {$totalPoints > 0 ? ($achievedPoints*100.0/$totalPoints) : 0}]]
         set achievedPointsInfo [subst {
-          #xowf.Achieved_points#: <span class='data'>$achievedPoints von möglichen $possiblePoints Punkten,
+          #xowf.Achieved_points#: <span class='data'>$achievedPoints von möglichen $totalPoints Punkten,
           $percentage%</span><br>
         }]
       } else {