aboutsummaryrefslogtreecommitdiff
path: root/GradeBook_lib.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'GradeBook_lib.tcl')
-rwxr-xr-xGradeBook_lib.tcl4
1 files changed, 2 insertions, 2 deletions
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"\