added selector of category for a new column

Ignore-this: 509316b40360adb2c448f5004f003483

darcs-hash:20110110051730-067c0-e444b145b3c12a62ded2419a60e052cc6cf31c11.gz

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>}
 
 }