diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2012-12-18 09:55:38 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2012-12-18 09:55:38 -0500 |
| commit | fe51a2616955941dfbf2e1bf44eb806be9514a71 (patch) | |
| tree | 3b06dd5b3be2ed94594d669dae9c84c996dd4c46 | |
| parent | 8f851ef3d716a958d8dfa496a854518ce19ad98a (diff) | |
| download | GradeBook-fe51a2616955941dfbf2e1bf44eb806be9514a71.tar.gz GradeBook-fe51a2616955941dfbf2e1bf44eb806be9514a71.zip | |
using verbosity level from config file
| -rwxr-xr-x | GradeBook_lib.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index fcc9b3d..885af1b 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -312,6 +312,7 @@ proc grade_Category2html_name { category } { } proc dbg {msg {category msg_level_critical}} { + global GradebookServerConfig switch $category { msg_level_info {set msg_header "Info:"; set level 6} msg_level_warning {set msg_header "Warning:"; set level 4} @@ -321,7 +322,7 @@ proc dbg {msg {category msg_level_critical}} { default {set msg_header "Unknown:"; set level 0} } - if { $level <=4 } { + if { $level <= $GradebookServerConfig(verbosity_level) } { set fid [open log a+] puts $fid "$msg_header $msg" close $fid |