X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=SL%2FUser.pm;h=42622f8fdc5d81c9684f840cea1052069aa80993;hb=bdb802cd8e3e47817058fb907f5fe577b3d5cf90;hp=8bb9b997bd68475b7518ad4fe1b9fa2e86a165dc;hpb=9e61cdfdcd3cf4eba2f3e274ed19a191bc56ff59;p=kivitendo-erp.git

diff --git a/SL/User.pm b/SL/User.pm
index 8bb9b997b..42622f8fd 100644
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -384,6 +384,9 @@ sub dbupdate2 {
 
   &dbconnect_vars($form, $db);
 
+  # Flush potentially held database locks.
+  $form->get_standard_dbh->commit;
+
   my $dbh = SL::DBConnect->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd}, SL::DBConnect->get_options) or $form->dberror;
 
   $dbh->do($form->{dboptions}) if ($form->{dboptions});