added non web version of delete column

Ignore-this: 1f21697c2802f5c4a98c9c25e49fe87b

darcs-hash:20110119043211-067c0-c2b2b91a6139f6a39772020c0d970cd163a7dab8.gz

1 files changed, 7 insertions, 3 deletions

diff --git a/GradeBook.tcl b/GradeBook.tcl
index 87d208d..69154e6 100755
--- a/GradeBook.tcl
+++ b/GradeBook.tcl
@@ -445,9 +445,7 @@ proc ChangeGrades { permission_list user } {
 	}
 }
 
-proc DeleteColumn { permission_list user } {
-	global script_name
-	set columnname [::ncgi::value columnname {}]
+proc DeleteColumnNonWeb { columnname } {
 	if { $columnname != "" } {
 		set eval_str [concat SELECT * FROM GradesTable ]
 		set err [catch {db eval $eval_str v {} } errStat]
@@ -479,6 +477,12 @@ proc DeleteColumn { permission_list user } {
 	}
 }
 
+proc DeleteColumn { permission_list user } {
+	global script_name
+	set columnname [::ncgi::value columnname {}]
+	DeleteColumnNonWeb $columnname
+}
+
 proc AddColumnNonWeb { columnname2add column_category maxpointpossible } {
 	if { $columnname2add != "" } {