diff options
| -rwxr-xr-x | libBasicTableOperations.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libBasicTableOperations.tcl b/libBasicTableOperations.tcl index 5374171..04c6d00 100755 --- a/libBasicTableOperations.tcl +++ b/libBasicTableOperations.tcl @@ -118,8 +118,8 @@ proc begin_db_transaction { } { set eval_str [concat BEGIN TRANSACTION] set err [catch {db eval $eval_str } errStat] if { $err } { - htmlErrorMsg $errStat - dbg "the following error happen: $errStat" msg_level_critical + htmlErrorMsg $errStat begin_db_transaction + dbg "the following error happen: $errStat" msg_level_critical begin_db_transaction } } } @@ -131,8 +131,8 @@ proc end_db_transaction { } { set eval_str [concat END TRANSACTION] set err [catch {db eval $eval_str } errStat] if { $err } { - htmlErrorMsg $errStat - dbg "the following error happen: $errStat" msg_level_critical + htmlErrorMsg $errStat end_db_transaction + dbg "the following error happen: $errStat" msg_level_critical begin_db_transaction } } } |