hide action permitted on any column

Ignore-this: 366370df4ba022ed55bfaf99c7576d34

darcs-hash:20110121173623-067c0-083abea6c8075c9eeabb651bbff83b842075a437.gz

1 files changed, 3 insertions, 3 deletions

diff --git a/GradeBook.tcl b/GradeBook.tcl
index 6c264cc..1257cab 100755
--- a/GradeBook.tcl
+++ b/GradeBook.tcl
@@ -182,13 +182,13 @@ proc htmlDBout {db permission_list user {sort_col {}}} {
 					foreach col  $v(*) {
 						puts -nonewline "<th><a href=\"$script_name?action=sort&sortCol=$col\">$col</a>"
 						# below list has action and action_label pairs
-						set action_list {}
+						set action_list {userhidecolumn hide}
 						switch $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 {}  }
+							PasswordHash  { }
+							GroupName  {   }
 							default {
 								lappend action_list changegrades "change grades" deletecolumn delete  changecolumn "change column"
 							}