Web deletion actually renames the column

Now deletion is recoverable operation

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
 }