diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-22 15:54:56 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-22 15:54:56 -0500 |
| commit | 3d512abe4f681edc8e1da617be786f08d190ac94 (patch) | |
| tree | 3a5cbcc77fa84c56884824e819095bef07689f00 /GradeBook.tcl | |
| parent | 3df335c5d5e53732bfb90ebac8f47e0bfa136109 (diff) | |
| download | GradeBook-3d512abe4f681edc8e1da617be786f08d190ac94.tar.gz GradeBook-3d512abe4f681edc8e1da617be786f08d190ac94.zip | |
added css use in change grade page
Ignore-this: def21fd1ca13d62041161a3c47e1af4d
darcs-hash:20110122205456-067c0-6e0e70d4e8764cea0a27427e684125e57e6707e8.gz
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 { |