aboutsummaryrefslogtreecommitdiff
path: root/GradeBook_lib.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'GradeBook_lib.tcl')
-rwxr-xr-xGradeBook_lib.tcl38
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
generated by cgit v1.2.3 (git 2.39.1) at 2024-11-16 23:36:17 +0000