From d2abfa4f48b0925838590884bf45f06eeaa74440 Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Wed, 19 Oct 2016 16:30:16 -0400 Subject: explanations for the sort action --- GradeBook_lib.tcl | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index 41fa9f1..59749a2 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -1674,7 +1674,11 @@ proc ChoseAction {action permission_list user} { if { [isActionGranted $action $permission_list $user] } { switch $action { - sort { SetSortColumn; ChoseAction defaultview $permission_list $user } + sort { + # we do not need to run SetSortColumn since it is done at the very beginning + # before we run ::ncgi::header + ChoseAction defaultview $permission_list $user + } addcolumn { AddColumn $permission_list $user; htmlDefaultView $permission_list $user -- cgit v1.2.3