diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-21 13:42:54 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-21 13:42:54 -0500 |
| commit | 07f39f81dac70224da12cc1cb4285c6d937d8169 (patch) | |
| tree | 808ac171f6338c5e1658073ccabad8f248362907 /GradeBook.tcl | |
| parent | 07e5a4722c192d26ff68dcf40f08ef67f1b14760 (diff) | |
| download | GradeBook-07f39f81dac70224da12cc1cb4285c6d937d8169.tar.gz GradeBook-07f39f81dac70224da12cc1cb4285c6d937d8169.zip | |
group specific hidden columns are updated
Ignore-this: cedcc08abb09b6835771238229988c50
darcs-hash:20110121184254-067c0-2599b8c57b0b9217edbf86502e1700c5f0d87950.gz
Diffstat (limited to 'GradeBook.tcl')
| -rwxr-xr-x | GradeBook.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index ac3024f..2aedf03 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -156,8 +156,8 @@ proc htmlDBout {db permission_list user {sort_col {}}} { # set hidden column list switch $permission(GroupName) { instructor { set hidden_columns {} } - ta { set hidden_columns [list UserName PasswordHash GroupName] } - student { set hidden_columns [list FirstName LastName UserName PasswordHash GroupName] } + ta { set hidden_columns [list UserName PasswordHash GroupName UserHiddenColums] } + student { set hidden_columns [list FirstName LastName UserName PasswordHash GroupName UserHiddenColums] } guest { set hidden_columns $column_list } default { set hidden_columns $column_list } } |