From 3df335c5d5e53732bfb90ebac8f47e0bfa136109 Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Sat, 22 Jan 2011 15:38:53 -0500
Subject: grade table column category is depicted in the css class

Ignore-this: a4a7af755a2f0265685daa9a947b60f4

darcs-hash:20110122203853-067c0-63c43cdf1a887fdf763a66c808f5e11dbf47ce64.gz
---
 GradeBook.tcl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'GradeBook.tcl')

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 {
-- 
cgit v1.2.3