diff options
author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-22 15:38:53 -0500 |
---|---|---|
committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-22 15:38:53 -0500 |
commit | 3df335c5d5e53732bfb90ebac8f47e0bfa136109 (patch) | |
tree | 4a120a1ee516fc068c555105eea62669fd9301e6 /GradeBook.tcl | |
parent | 07f39f81dac70224da12cc1cb4285c6d937d8169 (diff) | |
download | GradeBook-3df335c5d5e53732bfb90ebac8f47e0bfa136109.tar.gz GradeBook-3df335c5d5e53732bfb90ebac8f47e0bfa136109.zip |
grade table column category is depicted in the css class
Ignore-this: a4a7af755a2f0265685daa9a947b60f4
darcs-hash:20110122203853-067c0-63c43cdf1a887fdf763a66c808f5e11dbf47ce64.gz
Diffstat (limited to 'GradeBook.tcl')
-rwxr-xr-x | GradeBook.tcl | 4 |
1 files changed, 3 insertions, 1 deletions
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 { |