added begin and end db transaction functions

1 files changed, 28 insertions, 0 deletions

diff --git a/libBasicTableOperations.tcl b/libBasicTableOperations.tcl
index 81f85b3..268845e 100755
--- a/libBasicTableOperations.tcl
+++ b/libBasicTableOperations.tcl
@@ -110,3 +110,31 @@ proc DeleteColumnFromTable { table columnname } {
 	}
 }
 
+set isDbTransactionActive false
+proc begin_db_transaction { } {
+	global isDbTransactionActive
+	if { !$isDbTransactionActive } {
+		set isDbTransactionActive true
+		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
+		} 
+	}
+}
+
+proc end_db_transaction { } {
+	global isDbTransactionActive
+	if { $isDbTransactionActive } {
+		set isDbTransactionActive false
+		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
+		} 
+	}
+}
+
+