diff options
Diffstat (limited to 'GradeBook.tcl')
| -rwxr-xr-x | GradeBook.tcl | 5 |
1 files changed, 5 insertions, 0 deletions
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>} } |