From 07f39f81dac70224da12cc1cb4285c6d937d8169 Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Fri, 21 Jan 2011 13:42:54 -0500
Subject: group specific hidden columns are updated

Ignore-this: cedcc08abb09b6835771238229988c50

darcs-hash:20110121184254-067c0-2599b8c57b0b9217edbf86502e1700c5f0d87950.gz
---
 GradeBook.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'GradeBook.tcl')

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 }
 	}
-- 
cgit v1.2.3