added div for grades table

Ignore-this: 7f4cdc3b3c77d8977a1dd804149858bf

darcs-hash:20110120031312-067c0-196a04d037f5b8f956df8107e7e604c1e10608bd.gz

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>}
 }