diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2013-12-05 22:29:02 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2013-12-05 22:29:02 -0500 |
| commit | 91d4dd27a5d0fdf3413ed9ed4d4c6d3fc17ff9ce (patch) | |
| tree | 9a8cc6a0cb1cf006ccfd80f190e720d2edf53487 /GradeBook_lib.tcl | |
| parent | 26e93d7c5b64d6420f9bfea2f2125f81ccdc714a (diff) | |
| download | GradeBook-91d4dd27a5d0fdf3413ed9ed4d4c6d3fc17ff9ce.tar.gz GradeBook-91d4dd27a5d0fdf3413ed9ed4d4c6d3fc17ff9ce.zip | |
added deletion timestamp to deleted column
Diffstat (limited to 'GradeBook_lib.tcl')
| -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 |