diff options
| -rwxr-xr-x | GradeBook_lib.tcl | 4 |
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.} |