diff options
| -rwxr-xr-x | GradeBook_lib.tcl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index 8ffc5bf..5605d72 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -119,6 +119,10 @@ proc calculteWeightedTotals { } { if { $col_val eq "" } { set col_val 0 } + if { ![string is double -strict $col_val] } { + htmlInfoMsg "the cell in column $col contains $col_val which is not number, using 0 instead" + set col_val 0 + } set points_sum [expr { $points_sum + $col_val}] } if { $max_points($category) != 0 } { |