bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

v6.1.3: fix grandtotal for invalid balances

Browse source 
This somehow escaped change with the introduction of RevBank::Amount in
v3.2 in 2021, which only now became relevant due to the recent change in
v6.1.0 which turns invalid account balances into a feature.
This commit is contained in:
Juerd Waalboer 2024-04-25 01:34:47 +02:00
parent 6c74097707
commit 1c9c35d535
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
plugins/grandtotal
View file

@ -12,14 +12,14 @@ sub command :Tab(grandtotal) ($self, $cart, $command, @) {
my ($username, $balance) = split " ", $line;
next if RevBank::Users::is_special($username);
my $credit = $balance;
my $credit = RevBank::Amount->parse_string($balance) or next;
$neg += $credit if $credit < 0;
$pos += $credit if $credit > 0;
}
printf "Total positive: %8.2f\n", $pos;
printf "Total negative: \e[31;1m%8.2f\e[0m\n", $neg;
printf "GRAND TOTAL: \e[1m%8.2f\e[0m\n", $pos + $neg;
printf "Total positive: %8s\n", $pos;
printf "Total negative: \e[31;1m%8s\e[0m\n", $neg;
printf "GRAND TOTAL: \e[1m%8s\e[0m\n", $pos + $neg;
return ACCEPT;
}

2
revbank
View file

@ -16,7 +16,7 @@ use RevBank::Messages;
use RevBank::Cart;
use RevBank::Prompt;
our $VERSION = "6.1.2";
our $VERSION = "6.1.3";
our %HELP1 = (
"abort" => "Abort the current transaction",
);