From ce501fcac9113539eb04fb0f3d7229941ddd8b73 Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Sat, 21 Jan 2012 21:30:14 -0500
Subject: debug priority assigned

---
 GradeBook_lib.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'GradeBook_lib.tcl')

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"\
-- 
cgit v1.2.3