From: Bernd Bleßmann <bernd@kivitendo-premium.de>
Date: Tue, 22 Sep 2015 10:22:59 +0000 (+0200)
Subject: Auftrags-Controller: hash ref richtig dereferenzieren.
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=a38193700a542081a1962820889f19c07c31baaf;p=kivitendo-erp.git

Auftrags-Controller: hash ref richtig dereferenzieren.
---

diff --git a/SL/Controller/Order.pm b/SL/Controller/Order.pm
index e3f45a8df..b00b089ad 100644
--- 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 });