diff options
Diffstat (limited to 'GradeBook_lib.tcl')
| -rwxr-xr-x | GradeBook_lib.tcl | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index d2c4fc5..5b68c67 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -354,8 +354,7 @@ proc calculteWeightedTotals { } { foreach student $students_list { array set PointsSum [ calculteSumOfPointsForStudentInCategory $student $category ] set points_sum($category,$student) $PointsSum(gained_points) - set excused_points($category,$student) $PointsSum(excused_points) - set max_points($category,$student) [expr { $max_points($category) - $excused_points($category,$student)}] + set max_points($category,$student) $PointsSum(max_points) if { $max_points($category,$student) != 0 } { # normalizing set points_sum($category,$student) [expr { 1. * $points_sum($category,$student) / $max_points($category,$student) } ] @@ -387,8 +386,7 @@ proc calculteWeightedTotals { } { if { ![info exist points_sum($category,$student)] } { array set PointsSum [ calculteSumOfPointsForStudentInCategory $student $category ] set points_sum($category,$student) $PointsSum(gained_points) - set excused_points($category,$student) $PointsSum(excused_points) - set max_points($category,$student) [expr { $max_points($category) - $excused_points($category,$student)}] + set max_points($category,$student) $PointsSum(max_points) if { $max_points($category,$student) != 0 } { # normalizing set points_sum($category,$student) [expr { 1. * $points_sum($category,$student) / $max_points($category,$student) } ] |