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

Hide contras of hidden users

Browse source 
For future "behind the scenes" actual bookkeeping
This commit is contained in:
Juerd Waalboer 2022-06-11 17:17:53 +02:00
parent ccae71021a
commit f84a69372a
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/RevBank/Cart/Entry.pm
View file

@ -6,6 +6,7 @@ use feature qw(signatures);
no warnings qw(experimental::signatures); no warnings qw(experimental::signatures);
use Carp qw(carp croak); use Carp qw(carp croak);
use RevBank::Users;
use List::Util (); use List::Util ();
sub new($class, $amount, $description, $attributes = {}) { sub new($class, $amount, $description, $attributes = {}) {
@ -83,6 +84,8 @@ sub as_printable($self) {
push @s, sprintf "%8s %s", $self->{amount}->string_flipped, $self->{description}; push @s, sprintf "%8s %s", $self->{amount}->string_flipped, $self->{description};
for my $c ($self->contras) { for my $c ($self->contras) {
next if RevBank::Users::is_hidden($c->{user});
push @s, sprintf( push @s, sprintf(
"%11s %s %s", "%11s %s %s",
$c->{amount}->abs->string, $c->{amount}->abs->string,