X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/75957fe8210b1b1eacbcabd3c3d09ff8a4f5ec3f..2f6a11fb5314d652152e0514bf5e5bf2735dc8fe:/SL/Controller/Buchungsgruppen.pm diff --git a/SL/Controller/Buchungsgruppen.pm b/SL/Controller/Buchungsgruppen.pm index aac6f73ab..0ad05c428 100644 --- a/SL/Controller/Buchungsgruppen.pm +++ b/SL/Controller/Buchungsgruppen.pm @@ -89,7 +89,7 @@ sub action_delete { # constraint, if Buchungsgruppe is connected to a part my $db = $self->{config}->db; - $db->do_transaction(sub { + $db->do_transaction(sub { my $taxzone_charts = SL::DB::Manager::TaxzoneChart->get_all(where => [ buchungsgruppen_id => $self->config->id ]); foreach my $taxzonechart ( @{$taxzone_charts} ) { $taxzonechart->delete }; $self->config->delete();