added procs for UserHideColumn and UserUnHideColumn actions

Ignore-this: 568aeb5da73306700c5666046193f878

darcs-hash:20110121180708-067c0-2e98bb4b5f83afc62ef5d33257ea9add05222e0c.gz

1 files changed, 11 insertions, 0 deletions

diff --git a/GradeBook.tcl b/GradeBook.tcl
index c41f106..c1d472a 100755
--- a/GradeBook.tcl
+++ b/GradeBook.tcl
@@ -375,6 +375,17 @@ proc ChoseAction {action permission_list user} {
 	}
 }
 
+proc UserHideColumn { permission_list user } {
+	set columnname [::ncgi::value columnname {}]
+	set currently_hidden_colimns [SelectColValue4User UserHiddenColums $user]
+	lappend currently_hidden_colimns $columnname
+	UpdateColValue4UserNameNonWeb UserHiddenColums $user $currently_hidden_colimns
+}
+
+proc UserUnHideColumn { permission_list user } {
+	set columnname [::ncgi::value columnname {}]
+}
+
 proc ChangeColumn { permission_list user } {
 	set columnname [::ncgi::value columnname {}]
 	set category "none"