diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-21 10:34:56 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-21 10:34:56 -0500 |
| commit | a253a99e9d43bbb391c5d925c8a9c13862196103 (patch) | |
| tree | 69ec6192a9418d989efbca3c44f81603f1fd7b01 /GradeBook.tcl | |
| parent | abe00d7c756f9f190b973608b0bef437b89955cb (diff) | |
| download | GradeBook-a253a99e9d43bbb391c5d925c8a9c13862196103.tar.gz GradeBook-a253a99e9d43bbb391c5d925c8a9c13862196103.zip | |
grades change is only for students now
Ignore-this: 3ba8c661886dd7da678df9732dfa1678
darcs-hash:20110121153456-067c0-62cd1d7bba3f22fdbff334d8baa153b668ea0dce.gz
Diffstat (limited to 'GradeBook.tcl')
| -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 { |