diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-10 02:00:59 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-10 02:00:59 -0500 |
| commit | 297ea8435e15d772aa1dbf22e07b3230b665f5e2 (patch) | |
| tree | 4878c74125bdccf42fc4ed08f6ab91179cca5ade | |
| parent | d19c3354bbfd3550c2882a95d663362b47cc82ff (diff) | |
| download | GradeBook-297ea8435e15d772aa1dbf22e07b3230b665f5e2.tar.gz GradeBook-297ea8435e15d772aa1dbf22e07b3230b665f5e2.zip | |
special table rows _Max_Points_ and _Col_Category_ are excluded from grade change
Ignore-this: ac5be1b0a868147dc5da4d3926812946
darcs-hash:20110110070059-067c0-e24d15813e4b99f50e3cce8c33474141aee9905c.gz
| -rwxr-xr-x | GradeBook.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
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 "<form name=\"input\" action=\"$script_name\" method=\"post\" />" # 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 { |