colums with Totals are shown first

1 files changed, 15 insertions, 0 deletions

diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl
index 599c8e6..a7705b3 100755
--- a/GradeBook_lib.tcl
+++ b/GradeBook_lib.tcl
@@ -1548,6 +1548,21 @@ proc htmlDBout {db permission_list user {sort_col {}}} {
 		lappend column_list UserName
 	}
 	
+	# put columns with Totals up front
+	set head_list {}
+	set tail_list {}
+	foreach col $column_list {
+		#puts $col
+		if { [regexp -nocase -- {total} $col] } {
+			lappend head_list $col
+		} else {
+			lappend tail_list $col
+		}
+	}
+	set column_list {}
+	lappend column_list {*}$head_list
+	lappend column_list {*}$tail_list
+	
 	set sql_column_str [colList2sqlColStr $column_list]
 	# set users of what group user can see, i.e. set WHERE statement
 	set where_statement {}