diff options
| -rwxr-xr-x | GradeBook.tcl | 4 | ||||
| -rwxr-xr-x | GradeBook_lib.tcl | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index 6b69655..9193cdf 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -69,7 +69,7 @@ dbg "===== Connection at $timestamp for user $user_requested =====" msg_level_lo ::ncgi::header set user [ Authenticate_User $user_requested $password ] -dbg "Requested user $user_requested logged in as $user" msg_level_dbg +dbg "Requested user $user_requested logged in as $user" msg_level_info set dbfile "$GradebookServerConfig(grades_db_dir)/$coursedbfname" if { [file exists $dbfile] && ("$coursedbfname" ne "") } { @@ -92,7 +92,7 @@ if { [file exists $dbfile] && ("$coursedbfname" ne "") } { html_Show_Classes_List $permission_list $user } -dbg $permission_list msg_level_dbg +dbg $permission_list msg_level_info htmlFooter $permission_list puts "</body>" diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index 1f5670b..a92d1a2 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -691,7 +691,7 @@ proc htmlDBout {db permission_list user {sort_col {}}} { if { $sort_col == {} } { set sort_col $defSortCol - dbg "empty sort col changed to $sort_col" 4 + dbg "empty sort col changed to $sort_col" msg_level_info } # testing for the existense of the sorting column set eval_str [concat SELECT * FROM GradesTable ORDER BY \"$sort_col\"] @@ -1728,7 +1728,7 @@ proc ShowControls { permission_list user } { global script_name #global grades_category set grades_category [ get_grades_category ] - dbg "outputing contol list" + dbg "outputting contol list" msg_level_info puts "<div class=\"controls\">" set action_list [ list \ defaultview "Refresh"\ |