Add support for user-accessible accounts that are excluded from grandtotal
This commit is contained in:
parent
df8c84672d
commit
d54428b092
4 changed files with 30 additions and 6 deletions
|
@ -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;
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue