diff options
| -rw-r--r-- | GradeBook.css | 32 | ||||
| -rwxr-xr-x | 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 { |