diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2012-01-21 21:30:14 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2012-01-21 21:30:14 -0500 |
| commit | ce501fcac9113539eb04fb0f3d7229941ddd8b73 (patch) | |
| tree | 2bd03dd281c355fe19d2ad6f44dd60c0316a89da | |
| parent | ff7c2aafec895171977e8e9aa8613b85d3b5e391 (diff) | |
| download | GradeBook-ce501fcac9113539eb04fb0f3d7229941ddd8b73.tar.gz GradeBook-ce501fcac9113539eb04fb0f3d7229941ddd8b73.zip | |
debug priority assigned
| -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"\ |