aboutsummaryrefslogtreecommitdiff
path: root/GradeBook.tcl
diff options
context:
space:
mode:
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