diff options
| -rw-r--r-- | GradeBook.css | 12 | ||||
| -rwxr-xr-x | GradeBook.tcl | 5 |
2 files changed, 17 insertions, 0 deletions
diff --git a/GradeBook.css b/GradeBook.css index 98b6193..3c9e22f 100644 --- a/GradeBook.css +++ b/GradeBook.css @@ -59,6 +59,18 @@ div.add_new_column { margin-bottom: 15px; } +div.gradestable { + /*border-bottom: 2px solid black;*/ + background-color: #ffcc99; + padding-top: 5px; + padding-bottom: 5px; + margin-bottom: 15px; +} + +div.gradestable span.controls { + background-color: #ddbb88; + font-weight: bold; +} table.gradestable { /*border-bottom: 2px solid black;*/ diff --git a/GradeBook.tcl b/GradeBook.tcl index 81fe67c..3340354 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -120,6 +120,7 @@ proc htmlDBout {db permission_list user {sort_col {}}} { set sort_col $defSortCol } + puts {<div class="gradestable">} set show_header 1 # show the table with grades set eval_str [list SELECT * FROM GradesTable ORDER BY $sort_col] @@ -162,6 +163,7 @@ proc htmlDBout {db permission_list user {sort_col {}}} { } puts "</table>" + puts {</div>} } proc htmlTop {permission_list} { @@ -609,6 +611,7 @@ proc ShowControls { permission_list user } { puts -nonewline "$separator<span class=\"controls\"><a href=$script_name?action=$act>$act_label</a></span>" } } + puts "" puts "</div>" } @@ -636,6 +639,7 @@ proc htmlStudentGrades { db user } { set sort_col $defSortCol + puts {<div class="gradestable">} set show_header 1 # show the table with grades set eval_str [list SELECT * FROM GradesTable WHERE UserName='$user' ORDER BY $sort_col] @@ -668,6 +672,7 @@ proc htmlStudentGrades { db user } { } puts "</table>" + puts {</div>} } |