From f84a69372ac4c2ad48525a10e14983979cd88d26 Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@tnx.nl>
Date: Sat, 11 Jun 2022 17:17:53 +0200
Subject: [PATCH] Hide contras of hidden users

For future "behind the scenes" actual bookkeeping
---
 lib/RevBank/Cart/Entry.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lib/RevBank/Cart/Entry.pm b/lib/RevBank/Cart/Entry.pm
index 85f738f..c4c808a 100644
--- a/lib/RevBank/Cart/Entry.pm
+++ b/lib/RevBank/Cart/Entry.pm
@@ -6,6 +6,7 @@ use feature qw(signatures);
 no warnings qw(experimental::signatures);
 
 use Carp qw(carp croak);
+use RevBank::Users;
 use List::Util ();
 
 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};
 
     for my $c ($self->contras) {
+        next if RevBank::Users::is_hidden($c->{user});
+
         push @s, sprintf(
             "%11s %s %s",
             $c->{amount}->abs->string,