diff options
| -rw-r--r-- | GradeBook.css | 7 | ||||
| -rwxr-xr-x | GradeBook.tcl | 4 |
2 files changed, 11 insertions, 0 deletions
diff --git a/GradeBook.css b/GradeBook.css index ee8ce6f..7a10fde 100644 --- a/GradeBook.css +++ b/GradeBook.css @@ -59,6 +59,13 @@ div.add_new_column { margin-bottom: 15px; } +div.changegrades { + /*border-bottom: 2px solid black;*/ + background-color: #8f0000; + padding: 5px; + margin-bottom: 5px; +} + div.gradestable { /*border-bottom: 2px solid black;*/ background-color: #ffcc99; 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 { |