improved error messages

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" />}