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.css | 32 +++++++++++++++++++++++++++++++-
 GradeBook.tcl |  4 +++-
 2 files changed, 34 insertions(+), 2 deletions(-)

diff --git a/GradeBook.css b/GradeBook.css
index 85335b6..ee8ce6f 100644
--- a/GradeBook.css
+++ b/GradeBook.css
@@ -72,14 +72,44 @@ div.gradestable span.controls {
 	font-weight: bold;
 }
 
-table.gradestable {
+
+div.gradestable table.gradestable {
 	/*border-bottom: 2px solid black;*/
 	background-color: #ffcc99;
 	padding-top: 5px;
 	padding-bottom: 5px;
 	margin-bottom: 15px;
+	margin:5px;
+	border: 1px solid black;
+	border-collapse:collapse;
 }
 
+div.gradestable th.Quiz {
+	background-color: #dfcc88;
+	font-weight: bold;
+}
+
+div.gradestable th.HomeWork {
+	background-color: #efcc99;
+	font-weight: bold;
+}
+
+div.gradestable th.LabReport {
+	background-color: #afcc80;
+	font-weight: bold;
+}
+
+div.gradestable th.MidTerm {
+	background-color: #ff5c80;
+	font-weight: bold;
+}
+
+div.gradestable th.FinalExam {
+	background-color: #ff0c80;
+	font-weight: bold;
+}
+
+
 div.errormsg {
 	/*border-bottom: 2px solid black;*/
 	background-color: #ff0000;
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