diff options
| -rwxr-xr-x | GradeBook_lib.tcl | 38 |
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 |