diff options
| -rwxr-xr-x | GradeBook_lib.tcl | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index dcecce4..4231e46 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -1704,7 +1704,17 @@ proc DeleteColumnNonWeb { columnname } { proc DeleteColumn { permission_list user } { global script_name set columnname [::ncgi::value columnname {}] - DeleteColumnNonWeb $columnname + # I decide against actual deletion + # DeleteColumnNonWeb $columnname + + # Instead I will rename column and put it to the special category + set deleted_columnname [concat _deleted_ $columnname] + RenameColumnNonWeb $columnname $deleted_columnname + + # set column category to deleted one + set old_column_category [SelectColValue4User $deleted_columnname _Col_Category_] + set category_deleted deleted + UpdateColValue4UserNameNonWeb $deleted_columnname _Col_Category_ $category_deleted calculteWeightedTotals } |