diff options
| -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 |