From fe51a2616955941dfbf2e1bf44eb806be9514a71 Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Tue, 18 Dec 2012 09:55:38 -0500 Subject: using verbosity level from config file --- GradeBook_lib.tcl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'GradeBook_lib.tcl') 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 -- cgit v1.2.3