aboutsummaryrefslogtreecommitdiff
path: root/GradeBook.tcl
diff options
context:
space:
mode:
authorEugeniy Mikhailov <evgmik@gmail.com>2016-10-19 16:28:58 -0400
committerEugeniy Mikhailov <evgmik@gmail.com>2016-10-19 16:28:58 -0400
commit6fdb5b14e9aff4db9dde4dfe1806a69ab96801c3 (patch)
tree507c8ae9005af3f849dc0d473e5d60821e99fc13 /GradeBook.tcl
parent76f9faa0329addf544f64b814ef20b5895a796ba (diff)
downloadGradeBook-6fdb5b14e9aff4db9dde4dfe1806a69ab96801c3.tar.gz
GradeBook-6fdb5b14e9aff4db9dde4dfe1806a69ab96801c3.zip
setting sortCol cookie in the right place
Diffstat (limited to 'GradeBook.tcl')
-rwxr-xr-xGradeBook.tcl2
1 files changed, 2 insertions, 0 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl
index 16baac9..54e112e 100755
--- a/GradeBook.tcl
+++ b/GradeBook.tcl
@@ -74,8 +74,10 @@ set timestamp [timestamp]
#CreateAccessRightsTable db
dbg [::ncgi::names] msg_level_info
# logon and logoff actions are granted to everyone
+# these actions also set cookies and should be run before ::ncgi::header
if { $action == "logon" } { set action [ LogMeOn ] }
if { $action == "logoff" } { LogMeOff; set action defaultview }
+if { $action == "sort" } { SetSortColumn }
#dbg "[timestamp] user $user_requested DB $coursedbfname version $VERSION from $remote_ip" msg_level_log