X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FTransNumber.pm;h=c9d7be6d174642c7c4942f59e343826c10a54b86;hb=89c9ff022d3f13e27ba6bda085df15707fcfb0eb;hp=9aed126551ceb6551548d3c774d55de251a301bf;hpb=5609a646164465de4a4217a2757c27d4c0b6bcee;p=kivitendo-erp.git

diff --git a/SL/TransNumber.pm b/SL/TransNumber.pm
index 9aed12655..c9d7be6d1 100644
--- a/SL/TransNumber.pm
+++ b/SL/TransNumber.pm
@@ -6,7 +6,6 @@ use parent qw(Rose::Object);
 
 use Carp;
 use List::MoreUtils qw(any none);
-use Readonly;
 use SL::DBUtils;
 
 use Rose::Object::MakeMethods::Generic
@@ -14,7 +13,7 @@ use Rose::Object::MakeMethods::Generic
  scalar => [ qw(type id number save dbh dbh_provided business_id) ],
 );
 
-Readonly my @SUPPORTED_TYPES => qw(invoice credit_note customer vendor sales_delivery_order purchase_delivery_order sales_order purchase_order sales_quotation request_quotation);
+my @SUPPORTED_TYPES = qw(invoice credit_note customer vendor sales_delivery_order purchase_delivery_order sales_order purchase_order sales_quotation request_quotation);
 
 sub new {
   my $class = shift;
@@ -106,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;