From 26771288f54955a64de7281c9b372bea7bfe210a Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Sun, 8 Dec 2013 22:06:49 -0500 Subject: debuging improved in begin/end transaction procs --- libBasicTableOperations.tcl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'libBasicTableOperations.tcl') 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 } } } -- cgit v1.2.3