X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=inline;f=SL%2FBackgroundJob%2FCreatePeriodicInvoices.pm;h=22f9bf985eaa84cb018475bfa4d3b5351ec287f7;hb=c7b0defb2a90a8eaa28b9e58ac3c108c27375a77;hp=ad16949b5b3769b641a53793de02141475f0c2fe;hpb=42bf1ae9263b1a94ea70a1c2f9a5f34efbb71c89;p=kivitendo-erp.git diff --git a/SL/BackgroundJob/CreatePeriodicInvoices.pm b/SL/BackgroundJob/CreatePeriodicInvoices.pm index ad16949b5..22f9bf985 100644 --- a/SL/BackgroundJob/CreatePeriodicInvoices.pm +++ b/SL/BackgroundJob/CreatePeriodicInvoices.pm @@ -75,7 +75,7 @@ sub run { ); if (@{ $self->{job_errors} }) { - my $msg = @{ $self->{job_errors} }; + my $msg = join "\n", @{ $self->{job_errors} }; _log_msg("Errors: $msg"); die $msg; } @@ -205,7 +205,7 @@ sub _create_periodic_invoice { my $order = $config->order; my $invoice; - if (!$self->{db_obj}->db->do_transaction(sub { + if (!$self->{db_obj}->db->with_transaction(sub { 1; # make Emacs happy $invoice = SL::DB::Invoice->new_from($order); @@ -254,6 +254,8 @@ sub _create_periodic_invoice { _log_msg("_create_invoice created for period start date $period_start_date id " . $invoice->id . " number " . $invoice->invnumber . " netamount " . $invoice->netamount . " amount " . $invoice->amount); # die $invoice->transaction_description; + + 1; })) { $::lxdebug->message(LXDebug->WARN(), "_create_invoice failed: " . join("\n", (split(/\n/, $self->{db_obj}->db->error))[0..2])); return undef;