diff options
Diffstat (limited to 'GradeBook.tcl')
| -rwxr-xr-x | GradeBook.tcl | 11 |
1 files changed, 11 insertions, 0 deletions
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>} } |