diff options
| -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 } } |