diff options
Diffstat (limited to 'GradeBook.tcl')
| -rwxr-xr-x | GradeBook.tcl | 10 |
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 != "" } { |