adding thead part for the gradestable

1 files changed, 4 insertions, 0 deletions

diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl
index 03b232b..696a709 100755
--- a/GradeBook_lib.tcl
+++ b/GradeBook_lib.tcl
@@ -1162,6 +1162,7 @@ proc htmlGradesTableHeadersRaw { permission_list user sql_column_str hidden_colu
 	# the following us unnessesary since this proc use $v(*) to get column names
 	# but I add the value just in case
 	set v(UserCount) DummyValueForUserCount
+	puts  {<thead class="gradestable">}
 	puts  "<tr>"
 	set first_column true
 	foreach col  $v(*) {
@@ -1238,6 +1239,7 @@ proc htmlGradesTableHeadersRaw { permission_list user sql_column_str hidden_colu
 		puts ""
 	}
 	puts "</tr>"
+	puts "</thead>"
 }
 
 proc getColAndValForUserName { user_name sql_column_str hidden_columns } {
@@ -1557,6 +1559,7 @@ proc htmlDBout {db permission_list user {sort_col {}}} {
 						puts  {<table class="gradestable">}
 						set v_array_list [array get v]
 						htmlGradesTableHeadersRaw $permission_list $user $sql_column_str $hidden_columns $v_array_list $sort_col
+						puts  {<tbody class="gradestable">}
 						htmlFormatMaxPossibleRaw     $sql_column_str $hidden_columns
 						puts [htmlFormatTheStatsForGradeRaw high $sql_column_str $hidden_columns]
 						puts [htmlFormatTheStatsForGradeRaw mean $sql_column_str $hidden_columns]
@@ -1595,6 +1598,7 @@ proc htmlDBout {db permission_list user {sort_col {}}} {
 			dbg $errStat msg_level_critical
 			htmlErrorMsg $errStat
 		}
+		puts  "</tbody>"
 		puts  "</table>"
 	} else {
 		puts {There is no grades yet.}