diff options
Diffstat (limited to 'GradeBook_lib.tcl')
| -rwxr-xr-x | GradeBook_lib.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index 10ee08c..9a622d6 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -114,7 +114,7 @@ proc getGradingWeights { } { proc isCalculateTotalForCategorySet { category } { if {![existsColumnWithRowvalueInTable GradesCategoryTable CategoryName $category ]} { - dbg "Category: $category does not exists in the GradesCategoryTable, setting CalculateTotal to false" msg_level_warning + dbg "Category: $category does not exists in the GradesCategoryTable, setting CalculateTotal to false" msg_level_info return false } set flag [SelectColvalueFromTable GradesCategoryTable NeedsTotal CategoryName $category] @@ -227,7 +227,7 @@ proc calculteWeightedTotals { } { # no weighted total column created for categories which do no have at least 2 columns # check if Weighted Category Column exists if { $CategoryWeightedTolalName ni $all_column_names } { - dbg "Column $CategoryWeightedTolalName does not exist, will create it now" msg_level_critical + dbg "Column $CategoryWeightedTolalName does not exist, will create it now" msg_level_info AddColumnNonWeb $CategoryWeightedTolalName weighted_column 0 } } else { @@ -260,7 +260,7 @@ proc calculteWeightedTotals { } { # now calculation of weighted grand total set grand_total_col_name "Grand Total" if { $grand_total_col_name ni $all_column_names } { - dbg "Column $grand_total_col_name does not exist, will create it now" msg_level_critical + dbg "Column $grand_total_col_name does not exist, will create it now" msg_level_info AddColumnNonWeb $grand_total_col_name weighted_column 0 } foreach student $students_list { |