From 930125b35245bc9653cc6c3cb65daeaa700ecb13 Mon Sep 17 00:00:00 2001
From: "Eugeniy E. Mikhailov" <evgmik@gmail.com>
Date: Mon, 10 May 2021 19:22:32 -0400
Subject: Fixed bug on not recovering sorting column which contains spaces

---
 GradeBook_lib.tcl | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'GradeBook_lib.tcl')

diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl
index 842a8dd..1ab3612 100755
--- a/GradeBook_lib.tcl
+++ b/GradeBook_lib.tcl
@@ -1518,12 +1518,15 @@ proc htmlDBout {db permission_list user {sort_col {}}} {
 	set grades_category [ get_grades_category ]
 	set defSortCol LastName 
 
+ 	# cookies stores columns with spaces surrounding in {}
+	set sort_col [join $sort_col]
 	# testing for the existence of the sorting column
 	if { ![doesColumnExists $sort_col GradesTable] } {
 		dbg "changing to default sorting column $defSortCol" msg_level_info
 		set sort_col $defSortCol
 	}
 
+
 	puts  {<div class="gradestable">}
 	set show_header 1
 	# get names of all columns
-- 
cgit v1.2.3