From f059317298728cd34e74af6ff2fdadc1d6fe3c8a Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Fri, 21 Jan 2011 13:07:08 -0500 Subject: added procs for UserHideColumn and UserUnHideColumn actions Ignore-this: 568aeb5da73306700c5666046193f878 darcs-hash:20110121180708-067c0-2e98bb4b5f83afc62ef5d33257ea9add05222e0c.gz --- GradeBook.tcl | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'GradeBook.tcl') 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" -- cgit v1.2.3