From b1703d735c21942a680f6e3623f5348f03f539de Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Mon, 10 Jan 2011 00:17:30 -0500
Subject: added selector of category for a new column

Ignore-this: 509316b40360adb2c448f5004f003483

darcs-hash:20110110051730-067c0-e444b145b3c12a62ded2419a60e052cc6cf31c11.gz
---
 GradeBook.css |  9 +++++++++
 GradeBook.tcl | 11 +++++++++++
 2 files changed, 20 insertions(+)

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>}
 
 }
 
-- 
cgit v1.2.3