diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-05-02 23:04:31 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-05-02 23:04:31 -0400 |
| commit | b0ba0af9eb99a93fc778e93f42d001b522fa642f (patch) | |
| tree | 6408ef98c76efd6d46960ed456d8256290b786dd /GradeBook_lib.tcl | |
| parent | 2a206784f44aed0b28b809981f49ee52144ea76c (diff) | |
| download | GradeBook-b0ba0af9eb99a93fc778e93f42d001b522fa642f.tar.gz GradeBook-b0ba0af9eb99a93fc778e93f42d001b522fa642f.zip | |
list -> concat to open list
Ignore-this: 8f2069f58ed083002a4a2080a2bd244
darcs-hash:20110503030431-067c0-0195d3c9ff508d55852d6593225901ceb0246396.gz
Diffstat (limited to 'GradeBook_lib.tcl')
| -rwxr-xr-x | GradeBook_lib.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index 16df7aa..92df017 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -703,7 +703,7 @@ proc htmlDBout {db permission_list user {sort_col {}}} { } if { $sql_column_str ne "" } { # assign type cast for different sort_col - if { [SelectColValue4User $sort_col _Col_Category_] in [list $grades_category weighted_column]} { + if { [SelectColValue4User $sort_col _Col_Category_] in [concat $grades_category weighted_column]} { set ordered_by_str [concat CAST(\"$sort_col\" AS REAL)] } else { set ordered_by_str \"$sort_col\" |