Auftrags-Controller: trailing whitespaces entfernt.

[mfinanz.git] / SL / Controller / Order.pm

diff --git a/SL/Controller/Order.pm b/SL/Controller/Order.pm
index e3f45a8dffc23e6e3ae852f871a3f9fb278697dc..b00b089ad3860c75683418d8a6846e8914823ef3 100644 (file)
--- a/SL/Controller/Order.pm
+++ b/SL/Controller/Order.pm
@@ -395,7 +395,7 @@ sub _recalc {
   foreach my $tax_chart_id (keys %{ $pat{taxes} }) {
     my $tax = SL::DB::Manager::Tax->find_by(chart_id => $tax_chart_id);
 
-    my @amount_keys = grep { $pat{amounts}->{$_}->{tax_id} == $tax->id } keys $pat{amounts};
+    my @amount_keys = grep { $pat{amounts}->{$_}->{tax_id} == $tax->id } keys %{ $pat{amounts} };
     push(@{ $self->{taxes} }, { amount    => $pat{taxes}->{$tax_chart_id},
                                 netamount => $pat{amounts}->{$amount_keys[0]}->{amount},
                                 tax       => $tax });