diff options
Diffstat (limited to 'GradeBook.tcl')
| -rwxr-xr-x | GradeBook.tcl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index fed35a8..0f46d49 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -448,6 +448,10 @@ proc UpdateColumn { permission_list user } { set column_category [::ncgi::value category {}] set maxpointpossible [::ncgi::value maxpointpossible {}] + # transform colnames to sql safe form + set oldcolumnname [ColName2SqlSafeForm $oldcolumnname] + set newcolumnname [ColName2SqlSafeForm $newcolumnname] + # first we update category and maxpointpossible values of the old columnname UpdateColValue4UserNameNonWeb $oldcolumnname _Col_Category_ $column_category UpdateColValue4UserNameNonWeb $oldcolumnname _Max_Points_ $maxpointpossible @@ -653,6 +657,7 @@ proc AddColumn { permission_list user } { set columnname2add [::ncgi::value columnname2add {}] set column_category [::ncgi::value column_category {}] set maxpointpossible [::ncgi::value maxpointpossible {}] + set columnname2add [ColName2SqlSafeForm $columnname2add] AddColumnNonWeb $columnname2add $column_category $maxpointpossible } |