diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-20 23:25:33 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-20 23:25:33 -0500 |
| commit | a40812b02c292bccd788a57bbd20625d1ef76ba6 (patch) | |
| tree | e0d4fd5448d3b6455d95f7beb4bea0bfd21b7f6b /GradeBook.tcl | |
| parent | 91556c99fcba1d6429b0f735e41cb621f8e5eeb4 (diff) | |
| download | GradeBook-a40812b02c292bccd788a57bbd20625d1ef76ba6.tar.gz GradeBook-a40812b02c292bccd788a57bbd20625d1ef76ba6.zip | |
hidden columns list updated
Ignore-this: c72b7601a3cb008412939e223cece223
darcs-hash:20110121042533-067c0-119116490b8c90fa098233cef786dd6d626b950f.gz
Diffstat (limited to 'GradeBook.tcl')
| -rwxr-xr-x | GradeBook.tcl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index e7c4351..3364cfb 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -141,8 +141,8 @@ proc htmlDBout {db permission_list user {sort_col {}}} { set column_list [getColListFromTable GradesTable] switch $permission(GroupName) { instructor { set hidden_columns {} } - ta { set hidden_columns [list UserName] } - student { set hidden_columns [list FirstName LastName UserName] } + ta { set hidden_columns [list UserName PasswordHash GroupName] } + student { set hidden_columns [list FirstName LastName UserName PasswordHash GroupName] } guest { set hidden_columns $column_list } default { set hidden_columns $column_list } } @@ -167,6 +167,8 @@ proc htmlDBout {db permission_list user {sort_col {}}} { FirstName { lappend action_list changefirstname "change first name" } LastName { lappend action_list changelastname "change last name" } UserName { lappend action_list changeusername "change user name" } + PasswordHash { set action_list {} } + GroupName { set action_list {} } default { lappend action_list changegrades "change grades" deletecolumn delete changecolumn "change column" } @@ -731,7 +733,7 @@ proc htmlStudentGrades { db user } { puts {<div class="gradestable">} set show_header 1 - set do_not_show_columns [list FirstName LastName UserName] + set do_not_show_columns [list FirstName LastName UserName PasswordHash GroupName] set cols_to_show [getColListFromTable GradesTable] foreach col $do_not_show_columns { set cols_to_show [removeElementFromList $col $cols_to_show] |