From 2e6ed35890e41c1ad02f78e62de6c8347a12a5ff Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Thu, 8 May 2014 14:21:34 -0400 Subject: when insert to table transaction should end --- GradeBook_lib.tcl | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'GradeBook_lib.tcl') diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index dd38bd4..8a8aa7f 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -721,7 +721,11 @@ proc isThereUserNameInTheGradesTable { username } { proc CheckAndCreateAsNeededInfoRow { row_name } { if { ![isThereUserNameInTheGradesTable $row_name] } { + # looks like to insert I need previous transactions + set transactionState [getTransactionState] + end_db_transaction true AddUserNonWeb {} {} $row_name inforow + begin_db_transaction $transactionState } } -- cgit v1.2.3