diff options
| -rwxr-xr-x | GradeBook_lib.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index 9b7293c..a227bdf 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -1730,7 +1730,8 @@ proc DeleteColumn { permission_list user } { # DeleteColumnNonWeb $columnname # Instead I will rename column and put it to the special category - set deleted_columnname [concat _deleted_ $columnname] + set tstamp [clock format [clock seconds] -format "%Y-%m-%d %H:%M:%S"] + set deleted_columnname [concat _deleted_ $tstamp $columnname] RenameColumnNonWeb $columnname $deleted_columnname # set column category to deleted one |