From a07404806a3dad6ca2758229b3c4e79978e2f660 Mon Sep 17 00:00:00 2001
From: Nicolas Vigier <boklm@mageia.org>
Date: Mon, 20 May 2013 16:42:49 +0000
Subject: Add categories graphs

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

(limited to 'mktreasurer')

diff --git a/mktreasurer b/mktreasurer
index 1f1614b..f13b531 100755
--- a/mktreasurer
+++ b/mktreasurer
@@ -162,6 +162,11 @@ sub transactions_infos {
             foreach my $tra (@{$y->{transactions}}) {
                 next unless $tra->{ca};
                 $y->{ca_balance}->{$tra->{ca}} += $tra->{amount};
+                if ($tra->{amount} > 0) {
+                    $y->{ca_revenues}->{$tra->{ca}} += $tra->{amount};
+                } else {
+                    $y->{ca_expenses}->{$tra->{ca}} -= $tra->{amount};
+                }
             }
             $y->{start_balance} = $start_balance ? $start_balance : new Math::BigFloat 0;
             $y->{end_balance} = $y->{balance} + new Math::BigFloat $y->{start_balance};
-- 
cgit v1.2.1