Add support for user-accessible accounts that are excluded from grandtotal

This commit is contained in:
Juerd Waalboer 2023-11-02 05:22:56 +01:00
parent df8c84672d
commit d54428b092
4 changed files with 30 additions and 6 deletions

View file

@ -10,7 +10,7 @@ sub command :Tab(grandtotal) ($self, $cart, $command, @) {
for my $line (slurp 'revbank.accounts') {
my ($username, $balance) = split " ", $line;
next if RevBank::Users::is_hidden($username);
next if RevBank::Users::is_special($username);
my $credit = $balance;
$neg += $credit if $credit < 0;