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 \