improved debug info

1 files changed, 19 insertions, 19 deletions

diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl
index 890bd06..436f6bc 100755
--- a/GradeBook_lib.tcl
+++ b/GradeBook_lib.tcl
@@ -66,7 +66,7 @@ proc get_grades_category {} {
 	} errStat ]
 	if { $err } {
 		htmlErrorMsg  $errStat 
-		dbg  "the following error happen: $errStat" msg_level_critical
+		dbg  "$errStat for $eval_str" msg_level_critical [lindex [info level 0] 0]
 	} 
 	#set grades_category [list \
 		#"unset"\
@@ -500,7 +500,7 @@ proc AddUserNonWeb { first_name last_name user_name {group_name {guest}} {id_num
 	set err [catch {db eval $eval_str  } errStat]
 	if { $err } {
 		htmlErrorMsg  $errStat 
-		dbg  "the following error happen: $errStat" msg_level_critical
+		dbg  "$errStat for $eval_str" msg_level_critical [lindex [info level 0] 0]
 	} 
 }
 
@@ -509,7 +509,7 @@ proc AddCourseInfoTableItem {  item value } {
 	set err [catch {db eval $eval_str  } errStat]
 	if { $err } {
 		htmlErrorMsg  $errStat 
-		dbg  "the following error happen: $errStat" msg_level_critical
+		dbg  "$errStat for $eval_str" msg_level_critical [lindex [info level 0] 0]
 	} 
 }
 
@@ -520,7 +520,7 @@ proc UpdateCourseInfoTableItem {  item value } {
 					} errStat2 ]
 					if { $err2 } {
 						htmlErrorMsg  $errStat2 
-						dbg  "the following error happen: $errStat2" msg_level_critical
+						dbg  "$errStat2 for $sql_str" msg_level_critical [lindex [info level 0] 0]
 					} 
 }
 
@@ -545,7 +545,7 @@ proc SelectItemFromCourseInfoTable { item } {
 	} errStat ]
 	if { $err } {
 		htmlErrorMsg  $errStat 
-		dbg  "the following error happen: $errStat" msg_level_critical
+		dbg  "$errStat for $eval_str" msg_level_critical [lindex [info level 0] 0]
 	} 
 	return $value
 }
@@ -604,7 +604,7 @@ proc AddGradesCategory {db category} {
 	set err [catch {db eval $eval_str  } errStat]
 	if { $err } {
 		htmlErrorMsg  $errStat 
-		dbg  "the following error happen: $errStat" msg_level_critical
+		dbg  "$errStat for $eval_str" msg_level_critical [lindex [info level 0] 0]
 	} 
 	ModifyWeightForGradesCategory db $category 0
 	ModifyNeedsTotalForGradesCategory db $category false
@@ -618,7 +618,7 @@ proc CreateGradesCategoryTable {db} {
 
 	if { $err && ($errStat ne "table GradesCategoryTable already exists") } {
 		htmlErrorMsg  $errStat 
-		dbg  "the following error happen: $errStat" msg_level_critical
+		dbg  "$errStat for $sql_str" msg_level_critical [lindex [info level 0] 0]
 	} 
 
 	foreach category [default_grades_category] {
@@ -656,7 +656,7 @@ proc UpdateGradesCategores { db permission_list user } {
 		end_db_transaction
 		if { $err } {
 			htmlErrorMsg  $errStat 
-			dbg  "the following error happen: $errStat" msg_level_critical
+			dbg  "$errStat for $eval_str" msg_level_critical [lindex [info level 0] 0]
 		} 
 	}
 
@@ -715,7 +715,7 @@ proc EditGradesCategories { db permission_list user } {
 	puts  "</table>"
 	if { $err } {
 		htmlErrorMsg  $errStat EditGradesCategories
-		dbg  "the following error happen: $errStat" msg_level_critical EditGradesCategories
+		dbg  "$errStat for $eval_str" msg_level_critical [lindex [info level 0] 0]
 	} 
 	puts {<input type="hidden" name="action" value="update_grades_categories"/>}
 	puts {<input type="submit" name="subaction" value="Submit" />}
@@ -772,7 +772,7 @@ proc CreateGradesTable {db} {
 	set err [catch {db eval $sql_str } errStat] 
 	if { $err } {
 		htmlErrorMsg  $errStat 
-		dbg  "the following error happen: $errStat" msg_level_critical
+		dbg  "$errStat for $sql_str" msg_level_critical [lindex [info level 0] 0]
 	} 
 
 	# add special users aka special info rows
@@ -795,7 +795,7 @@ proc AddAccessRightNonWeb { action instructor_right ta_right student_right dropp
 	set err [catch {db eval $eval_str  } errStat]
 	if { $err } {
 		htmlErrorMsg  $errStat 
-		dbg  "the following error happen: $errStat" msg_level_critical
+		dbg  "$errStat for $eval_str" msg_level_critical [lindex [info level 0] 0]
 	} 
 }
 
@@ -933,7 +933,7 @@ proc CreateAccessRightsTable {db} {
 	set err [catch {db eval {CREATE TABLE AccessRightsTable(actionname text,               instructor integer, ta integer, student integer, dropped integer,  guest integer)} } errStat]
 	if { $err } {
 		htmlErrorMsg  $errStat 
-		dbg  "the following error happen: $errStat" msg_level_critical
+		dbg  "$errStat" msg_level_critical [lindex [info level 0] 0]
 	} 
 	FillDefaultAccessRights
 	AddDefaultAccessRightToTableForActionNonWeb logon
@@ -1889,7 +1889,7 @@ proc Set_New_Password_Non_Web {user newpassword} {
 	} errStat ]
 	if { $err } {
 		htmlErrorMsg  $errStat 
-		dbg  "the following error happen: $errStat" msg_level_warning
+		dbg  "$errStat for $sql_str" msg_level_critical [lindex [info level 0] 0]
 	} 
 }
 
@@ -2140,7 +2140,7 @@ proc UpdateColValue4UserNameNonWeb { columnname username val } {
 					} errStat2 ]
 					if { $err2 } {
 						htmlErrorMsg  $errStat2 
-						dbg  "the following error happen: $errStat2" msg_level_critical
+						dbg  "$errStat2 for $sql_str" msg_level_critical [lindex [info level 0] 0]
 					} 
 }
 
@@ -2151,7 +2151,7 @@ proc UpdateColValue4GroupNameNonWeb { columnname groupname val } {
 					} errStat2 ]
 					if { $err2 } {
 						htmlErrorMsg  $errStat2 
-						dbg  "the following error happen: $errStat2" msg_level_critical
+						dbg  "$errStat2 for $sql_str" msg_level_critical [lindex [info level 0] 0]
 					} 
 }
 
@@ -2177,7 +2177,7 @@ proc GetGroupValuesInColumn { group_name columnname } {
 	} errStat ]
 	if { $err } {
 		htmlErrorMsg  $errStat 
-		dbg  "the following error happen: $errStat" msg_level_critical
+		dbg  "$errStat for $eval_str" msg_level_critical [lindex [info level 0] 0]
 	} 
 	return $col_values
 }
@@ -2346,7 +2346,7 @@ proc UpdateGrades { permission_list user } {
 		end_db_transaction
 		if { $err } {
 			htmlErrorMsg  $errStat 
-			dbg  "the following error happen: $errStat" msg_level_critical
+			dbg  "$errStat for $eval_str" msg_level_critical [lindex [info level 0] 0]
 		} else {
 			calculteWeightedTotals
 			set update_parent true
@@ -2402,7 +2402,7 @@ proc ChangeGrades { permission_list user } {
 		puts  "</table>"
 		if { $err } {
 			htmlErrorMsg  $errStat 
-			dbg  "the following error happen: $errStat" msg_level_critical
+			dbg  "$errStat for $eval_str" msg_level_critical [lindex [info level 0] 0]
 		} 
 		puts {<input type="hidden" name="action" value="updategrades"/>}
 		puts [concat <input type="hidden" name="columnname" value="$columnname"/>]
@@ -2490,7 +2490,7 @@ proc AddColumnNonWeb { columnname2add column_category maxpointpossible {sql_type
 		set err [catch {db eval $eval_str } errStat]
 		if { $err } {
 			htmlErrorMsg  $errStat 
-			dbg  "the following error happen: $errStat" msg_level_critical
+			dbg  "$errStat for $eval_str" msg_level_critical [lindex [info level 0] 0]
 		} 
 
 		UpdateColValue4UserNameNonWeb $columnname2add _Col_Category_ $column_category