diff options
| author | Eugeniy E. Mikhailov <evgmik@gmail.com> | 2021-05-10 19:22:32 -0400 |
|---|---|---|
| committer | Eugeniy E. Mikhailov <evgmik@gmail.com> | 2021-05-10 19:22:32 -0400 |
| commit | 930125b35245bc9653cc6c3cb65daeaa700ecb13 (patch) | |
| tree | 43852370c69452ab6b8eff21bc436d6e2c9d1382 /GradeBook_lib.tcl | |
| parent | cd2cc9682215a4ee87bb6519f020a2720464b04b (diff) | |
| download | GradeBook-930125b35245bc9653cc6c3cb65daeaa700ecb13.tar.gz GradeBook-930125b35245bc9653cc6c3cb65daeaa700ecb13.zip | |
Fixed bug on not recovering sorting column which contains spaces
Diffstat (limited to 'GradeBook_lib.tcl')
| -rwxr-xr-x | GradeBook_lib.tcl | 3 |
1 files changed, 3 insertions, 0 deletions
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 |