table rows have categoty class in the html output

Ignore-this: 3f2ebcf4a63d3e427287448cf661ee61

darcs-hash:20110123022844-067c0-f26b166cab7379b1719b446690f0ba14e6568a80.gz

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>"