diff options
Diffstat (limited to 'GradeBook.tcl')
| -rwxr-xr-x | GradeBook.tcl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index a92a9ef..6aa7963 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -536,6 +536,8 @@ proc ChangeGrades { permission_list user } { lappend column_list FirstName LastName UserName lappend column_list \"$columnname\" set sql_column_list [join $column_list ","] + puts {<div class="changegrades">} + puts {<div class="gradestable">} puts "<form name=\"input\" action=\"$script_name\" method=\"post\" />" # output only selected columns set eval_str "SELECT $sql_column_list FROM GradesTable WHERE UserName<>'_Col_Category_' AND UserName<>'_Max_Points_' AND GroupName='student' ORDER BY LastName" @@ -576,6 +578,8 @@ proc ChangeGrades { permission_list user } { puts {<input type="submit" name="subaction" value="Submit" />} puts {<input type="submit" name="subaction" value="Cancel" />} puts {</form>} + puts {</div>} + puts {</div>} #puts "<a href=\"$script_name\">Cancel changes</a>" } else { |