From 297ea8435e15d772aa1dbf22e07b3230b665f5e2 Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Mon, 10 Jan 2011 02:00:59 -0500 Subject: special table rows _Max_Points_ and _Col_Category_ are excluded from grade change Ignore-this: ac5be1b0a868147dc5da4d3926812946 darcs-hash:20110110070059-067c0-e24d15813e4b99f50e3cce8c33474141aee9905c.gz --- GradeBook.tcl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'GradeBook.tcl') diff --git a/GradeBook.tcl b/GradeBook.tcl index fa09ef0..85aa716 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -328,7 +328,7 @@ proc ChangeGrades { permission_list user } { set sql_column_list [join $column_list ","] puts "
" # output only selected columns - set eval_str "SELECT $sql_column_list FROM GradesTable ORDER BY LastName" + set eval_str "SELECT $sql_column_list FROM GradesTable WHERE UserName<>'_Col_Category_' AND UserName<>'_Max_Points_' ORDER BY LastName" set show_header 1 set err [catch { db eval $eval_str v { -- cgit v1.2.3