diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2014-05-08 14:21:34 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2014-05-08 14:21:34 -0400 |
| commit | 2e6ed35890e41c1ad02f78e62de6c8347a12a5ff (patch) | |
| tree | 5b8753c9ccabd957935328b52999030c2aa8e53a | |
| parent | df447609e7ba90a7c3347ce7f4283430c9a69d6e (diff) | |
| download | GradeBook-2e6ed35890e41c1ad02f78e62de6c8347a12a5ff.tar.gz GradeBook-2e6ed35890e41c1ad02f78e62de6c8347a12a5ff.zip | |
when insert to table transaction should end
| -rwxr-xr-x | GradeBook_lib.tcl | 4 |
1 files changed, 4 insertions, 0 deletions
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 } } |