added selector of category for a new column

Ignore-this: 509316b40360adb2c448f5004f003483

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

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