diff options
| -rwxr-xr-x | GradeBook_lib.tcl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index f5c1a36..999bfea 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -558,6 +558,10 @@ proc ModifyNumberOfLowestGradesToDropGradesCategory {db category num} { dbg "Category: $category already does not exists in the GradesCategoryTable, creating it" msg_level_info AddGradesCategory db $category } + if { ![doesColumnExists NumberToDrop GradesCategoryTable] } { + dbg "Do not have column NumberToDrop in the table GradesCategoryTable may be you are using older version of database format" msg_level_info ModifyNumberOfLowestGradesToDropGradesCategory + return + } UpdateColumnWithValueInTableWhere GradesCategoryTable NumberToDrop $num CategoryName $category } @@ -678,8 +682,8 @@ proc EditGradesCategories { db permission_list user } { } errStat ] puts "</table>" if { $err } { - htmlErrorMsg $errStat - dbg "the following error happen: $errStat" msg_level_critical + htmlErrorMsg $errStat EditGradesCategories + dbg "the following error happen: $errStat" msg_level_critical EditGradesCategories } puts {<input type="hidden" name="action" value="update_grades_categories"/>} puts {<input type="submit" name="subaction" value="Submit" />} |