debugging improved in DeleteColumnFromTable

1 files changed, 3 insertions, 3 deletions

diff --git a/libBasicTableOperations.tcl b/libBasicTableOperations.tcl
index 268845e..5374171 100755
--- a/libBasicTableOperations.tcl
+++ b/libBasicTableOperations.tcl
@@ -102,11 +102,11 @@ proc DeleteColumnFromTable { table columnname } {
 			COMMIT;"
 		set err [catch {db eval $eval_str  } errStat]
 		if { $err } {
-			htmlErrorMsg  $errStat 
-			dbg  "the following error happen: $errStat" msg_level_critical
+			htmlErrorMsg  $errStat DeleteColumnFromTable
+			dbg  "the following error happen: $errStat" msg_level_critical DeleteColumnFromTable
 		} 
 	} else {
-		htmlErrorMsg  "No column $columnname in the table $table"
+		htmlErrorMsg  "No column $columnname in the table $table" DeleteColumnFromTable
 	}
 }