diff options
| -rwxr-xr-x | GradeBook.tcl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index d81bc4e..a080e10 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -216,8 +216,10 @@ proc htmlDBout {db permission_list user {sort_col {}}} { } foreach index $v(*) { if { $index != "*" } { + # detect what column category it is + set category [SelectColValue4User $index _Col_Category_] set col_value [htmlReplaceEmptyString $v($index)] - puts -nonewline "<td>$col_value</td>" + puts -nonewline "<td class=\"$category\">$col_value</td>" } } puts "</tr>" |