mktreasurer: correctly dereference hash

git-svn-id: svn+ssh://svn.mageia.org/svn/soft/mga-treasurer/trunk@8250 5b7c3c08-40e5-403b-9995-ace06908e4af

1 files changed, 3 insertions, 3 deletions

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,