From 91d4dd27a5d0fdf3413ed9ed4d4c6d3fc17ff9ce Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Thu, 5 Dec 2013 22:29:02 -0500
Subject: added deletion timestamp to deleted column

---
 GradeBook_lib.tcl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3