diff options
-rwxr-xr-x | mktreasurer | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/mktreasurer b/mktreasurer index 4c44e50..5344478 100755 --- a/mktreasurer +++ b/mktreasurer @@ -140,6 +140,8 @@ sub transactions_infos { foreach my $by ('by_account', 'by_year', 'by_month', 'by_ca') { foreach my $t (values %{$res{$by}}) { $t->{balance} = new Math::BigFloat 0; + $t->{revenues} = new Math::BigFloat 0; + $t->{expenses} = new Math::BigFloat 0; foreach my $tra (@{$t->{transactions}}) { $t->{balance} += $tra->{amount}; next if $tra->{trt} && $by ne 'by_account'; |