diff options
| -rwxr-xr-x | GradeBook.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index 6e7f2e3..c987032 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -515,7 +515,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 WHERE UserName<>'_Col_Category_' AND UserName<>'_Max_Points_' ORDER BY LastName" + set eval_str "SELECT $sql_column_list FROM GradesTable WHERE UserName<>'_Col_Category_' AND UserName<>'_Max_Points_' AND GroupName='student' ORDER BY LastName" set show_header 1 set err [catch { db eval $eval_str v { |