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.52 -r1.7.2.53
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl 25 Apr 2020 21:35:12 -0000 1.7.2.52
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl 26 Apr 2020 14:21:28 -0000 1.7.2.53
@@ -1499,9 +1499,9 @@
}
if {$achieved_points ne ""} {
- set possiblePoints [format %.2f [dict get $achieved_points possiblePoints]]
- set achievedPoints [format %.2f [dict get $achieved_points achievedPoints]]
- set percentage [format %.2f [expr {$achievedPoints*100.0/$possiblePoints}]]
+ set possiblePoints [format %.2f [dict get $achieved_points possiblePoints]]
+ set achievedPoints [format %.2f [dict get $achieved_points achievedPoints]]
+ set percentage [format %.2f [expr {$possiblePoints > 0 ? ($achievedPoints*100.0/$possiblePoints) : 0}]]
set achievedPointsInfo [subst {
#xowf.Achieved_points#: $achievedPoints von möglichen $possiblePoints Punkten,
$percentage%
@@ -1750,6 +1750,9 @@
-name _online-exam-fullName \
-spec text,label=#acs-subsite.Name#] \
[$wf create_raw_form_field \
+ -name _state \
+ -spec text,label=#xowf.Status#] \
+ [$wf create_raw_form_field \
-name _online-exam-seconds \
-spec number,label=#xowf.Seconds#] \
[$wf create_raw_form_field \