diff options
| -rwxr-xr-x | libBasicTableOperations.tcl | 6 |
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 } } |