diff options
| -rwxr-xr-x | GradeBook.tcl | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index 2552168..87d208d 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -479,12 +479,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 {}] - set maxpointpossible [::ncgi::value maxpointpossible {}] +proc AddColumnNonWeb { columnname2add column_category maxpointpossible } { if { $columnname2add != "" } { set eval_str [concat ALTER TABLE GradesTable ADD \"$columnname2add\" text] @@ -512,6 +507,14 @@ proc AddColumn { permission_list user } { } } +proc AddColumn { permission_list user } { + global script_name + set columnname2add [::ncgi::value columnname2add {}] + set column_category [::ncgi::value column_category {}] + set maxpointpossible [::ncgi::value maxpointpossible {}] + AddColumnNonWeb $columnname2add $column_category $maxpointpossible +} + proc AddColumnRequest { permission_list user } { global script_name puts {<div class="add_new_column">} |