hidden columns list updated

Ignore-this: c72b7601a3cb008412939e223cece223

darcs-hash:20110121042533-067c0-119116490b8c90fa098233cef786dd6d626b950f.gz

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]