From: Moritz Bunkus <moritz@bunkus.org>
Date: Thu, 3 Feb 2011 10:44:19 +0000 (+0100)
Subject: Nur dann Transaktion starten, wenn noch keine läuft
X-Git-Tag: release-2.6.3~61^2~9^2^2
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/d639b4fce190514f773d255af4f89514a95515b2?ds=inline;hp=--cc

Nur dann Transaktion starten, wenn noch keine läuft
---

d639b4fce190514f773d255af4f89514a95515b2
diff --git a/SL/TransNumber.pm b/SL/TransNumber.pm
index 0ba13a8ab..c9d7be6d1 100644
--- a/SL/TransNumber.pm
+++ b/SL/TransNumber.pm
@@ -105,7 +105,7 @@ sub create_unique {
   my $form    = $main::form;
   my %filters = $self->_get_filters();
 
-  $self->dbh->begin_work;
+  $self->dbh->begin_work if $self->dbh->{AutoCommit};
   do_query($form, $self->dbh, qq|LOCK TABLE defaults|);
   do_query($form, $self->dbh, qq|LOCK TABLE business|) if $self->business_id;