diff options
| -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] |