diff options
| -rw-r--r-- | GradeBook.css | 9 | ||||
| -rwxr-xr-x | GradeBook.tcl | 11 |
2 files changed, 20 insertions, 0 deletions
diff --git a/GradeBook.css b/GradeBook.css index 4e2454b..512fca7 100644 --- a/GradeBook.css +++ b/GradeBook.css @@ -41,6 +41,15 @@ div.controls { margin-bottom: 15px; } +div.add_new_column { + /*border-bottom: 2px solid black;*/ + background-color: #ffcc99; + padding-top: 5px; + padding-bottom: 5px; + margin-bottom: 15px; +} + + table.gradestable { /*border-bottom: 2px solid black;*/ background-color: #ffcc99; diff --git a/GradeBook.tcl b/GradeBook.tcl index 9029171..cb86d94 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -393,6 +393,7 @@ proc DeleteColumn { permission_list user } { proc AddColumn { permission_list user } { global script_name set columnname2add [::ncgi::value columnname2add {}] + set column_category [::ncgi::value column_category {}] if { $columnname2add != "" } { set eval_str [concat ALTER TABLE GradesTable ADD \"$columnname2add\" real] @@ -409,12 +410,22 @@ proc AddColumn { permission_list user } { proc AddColumnRequest { permission_list user } { global script_name + puts {<div class="add_new_column">} puts "<form name=\"input\" method=\"post\" />" puts {Column Name: <input type="text" name="columnname2add"><br>} + puts {Category: <select name="column_category">} + puts {<option value="none">--Select--</option>} + puts {<option value="Quiz">Quiz</option>} + puts {<option value="HomeWork">HomeWork</option>} + puts {<option value="LabReport">LabReport</option>} + puts {<option value="MidTerm">MidTerm</option>} + puts {<option value="FinalExam">FinalExam</option>} + puts {</select> <br>} puts {Max Point Possible:<input type="text" name="maxpointpossible"><br>} puts {<input type="hidden" name="action" value="addcolumn"/>} puts {<input type="submit" value="Submit" />} puts {</form>} + puts {</div>} } |