From c7a9a396e89f30c210685339dec02e39cae63ccf Mon Sep 17 00:00:00 2001
From: Nicolas Vigier <boklm@mageia.org>
Date: Wed, 15 May 2013 17:23:29 +0000
Subject: mktreasurer: correctly dereference hash

git-svn-id: svn+ssh://svn.mageia.org/svn/soft/mga-treasurer/trunk@8250 5b7c3c08-40e5-403b-9995-ace06908e4af
---
 mktreasurer | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'mktreasurer')

diff --git a/mktreasurer b/mktreasurer
index 1de2cf8..d12217a 100755
--- a/mktreasurer
+++ b/mktreasurer
@@ -80,7 +80,7 @@ sub donations_infos {
             $res{total_30} += $don->{amount};
         }
     }
-    foreach my $d ((values $res{by_month}), (values $res{by_year})) {
+    foreach my $d ((values %{$res{by_month}}), (values %{$res{by_year}})) {
         foreach my $don (@{$d->{donations}}) {
             $d->{total} += $don->{amount};
             $d->{type}->{$don->{type}} += $don->{amount};
@@ -105,7 +105,7 @@ sub output_pages {
     );
 
     my $last_update = (stat $config->{grisbi_file})[9];
-    foreach my $month (keys $donations->{by_month}) {
+    foreach my $month (keys %{$donations->{by_month}}) {
         my $vars = {
             config    => $config,
             month     => $month,
@@ -114,7 +114,7 @@ sub output_pages {
         process_template($template, 'donations_by_month', $vars, "donations_m_$month");
     }
 
-    foreach my $year (keys $donations->{by_year}) {
+    foreach my $year (keys %{$donations->{by_year}}) {
         my $vars = {
             config    => $config,
             year      => $year,
-- 
cgit v1.2.1