diff options
Diffstat (limited to 'GradeBook.tcl')
| -rwxr-xr-x | GradeBook.tcl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index 2aedf03..a92a9ef 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -185,7 +185,9 @@ proc htmlDBout {db permission_list user {sort_col {}}} { puts {<table class="gradestable" border="1">} puts "<tr>" foreach col $v(*) { - puts -nonewline "<th><a href=\"$script_name?action=sort&sortCol=$col\">$col</a>" + # detect what column category it is + set category [SelectColValue4User $col _Col_Category_] + puts -nonewline "<th class=\"$category\"><a href=\"$script_name?action=sort&sortCol=$col\">$col</a>" # below list has action and action_label pairs set action_list {userhidecolumn hide} switch $col { |