diff options
| -rwxr-xr-x | GradeBook_lib.tcl | 15 |
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 {} |