diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2013-12-08 22:06:49 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2013-12-08 22:06:49 -0500 |
| commit | 26771288f54955a64de7281c9b372bea7bfe210a (patch) | |
| tree | f11965d6acf05950d24810e75a8053651c8150f4 | |
| parent | 86173e84ba25ba6752337fea56ad67d9bff0b843 (diff) | |
| download | GradeBook-26771288f54955a64de7281c9b372bea7bfe210a.tar.gz GradeBook-26771288f54955a64de7281c9b372bea7bfe210a.zip | |
debuging improved in begin/end transaction procs
| -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 } } } |