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"