From 037cf82e236211e8621b301a74aaf76399a7498b Mon Sep 17 00:00:00 2001 From: Nicolas Vigier Date: Wed, 15 May 2013 22:56:35 +0000 Subject: Rename type to sc_name git-svn-id: svn+ssh://svn.mageia.org/svn/soft/mga-treasurer/trunk@8265 5b7c3c08-40e5-403b-9995-ace06908e4af --- mktreasurer | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'mktreasurer') diff --git a/mktreasurer b/mktreasurer index f46cc0c..5979c6d 100755 --- a/mktreasurer +++ b/mktreasurer @@ -47,12 +47,12 @@ sub transactions_list { : @{$r->{Transaction}}; foreach my $tra (@transactions) { my %d = ( - nb => $tra->{Nb}, - amount => $tra->{Am}, - date => epoch_date($tra->{Dt}), - pa => $tra->{Pa}, - who => party_name($r, $tra->{Pa}), - type => subcat_name($r, $tra->{Sca}, $tra->{Ca}), + nb => $tra->{Nb}, + amount => $tra->{Am}, + date => epoch_date($tra->{Dt}), + pa => $tra->{Pa}, + who => party_name($r, $tra->{Pa}), + sc_name => subcat_name($r, $tra->{Sca}, $tra->{Ca}), $tra->{No} ne '(null)' ? (notes => $tra->{No}) : (), ); push @res, \%d; @@ -87,7 +87,7 @@ sub donations_infos { (values %{$res{by_pa}})) { foreach my $don (@{$d->{donations}}) { $d->{total} += $don->{amount}; - $d->{type}->{$don->{type}} += $don->{amount}; + $d->{type}->{$don->{sc_name}} += $don->{amount}; } } return \%res; -- cgit v1.2.1