diff options
| -rwxr-xr-x | GradeBook_lib.tcl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index 4a2e93f..340bed2 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -671,6 +671,8 @@ proc action2atributes { action_name } { proc number2letter_grade { num } { # grading_scheme MUST be sorted in descending order! + # here we do proper percent rounding + set num [expr {round(100.0*$num)/100.0}] set grading_scheme [get_grading_scheme] foreach {letter threshold} $grading_scheme { if { $num >= $threshold } { |