diff options
author | Nicolas Vigier <boklm@mageia.org> | 2013-05-15 22:56:35 +0000 |
---|---|---|
committer | Nicolas Vigier <boklm@mageia.org> | 2013-05-15 22:56:35 +0000 |
commit | 037cf82e236211e8621b301a74aaf76399a7498b (patch) | |
tree | 1a4c1826273b5f5d0ba12065efe719daef22511c /mktreasurer | |
parent | 3ea8e95cfe821384d3669d4c32ab7ee3556e0c30 (diff) | |
download | mgatres-037cf82e236211e8621b301a74aaf76399a7498b.tar mgatres-037cf82e236211e8621b301a74aaf76399a7498b.tar.gz mgatres-037cf82e236211e8621b301a74aaf76399a7498b.tar.bz2 mgatres-037cf82e236211e8621b301a74aaf76399a7498b.tar.xz mgatres-037cf82e236211e8621b301a74aaf76399a7498b.zip |
Rename type to sc_name
git-svn-id: svn+ssh://svn.mageia.org/svn/soft/mga-treasurer/trunk@8265 5b7c3c08-40e5-403b-9995-ace06908e4af
Diffstat (limited to 'mktreasurer')
-rwxr-xr-x | mktreasurer | 14 |
1 files changed, 7 insertions, 7 deletions
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; |