diff options
| -rwxr-xr-x | GradeBook.tcl | 11 |
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" |