From bb8c52b593ba96647033e8164d29b8a5a8b16520 Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@tnx.nl>
Date: Wed, 6 Nov 2019 06:13:18 +0100
Subject: [PATCH] Do provide final cart when no pending cart was ever shown...

---
 lib/RevBank/Cart/Entry.pm | 1 -
 plugins/users             | 4 ++++
 revbank                   | 4 ++--
 3 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/lib/RevBank/Cart/Entry.pm b/lib/RevBank/Cart/Entry.pm
index 0fbdf80..ef8950c 100644
--- a/lib/RevBank/Cart/Entry.pm
+++ b/lib/RevBank/Cart/Entry.pm
@@ -147,7 +147,6 @@ sub user {
         croak "User can only be set once" if defined $self->{user};
 
         $self->{user} = $new;
-        $self->attribute('changed', 1);
         $_->{description} =~ s/\$you/$new/g for $self, @{ $self->{contras} };
     }
 
diff --git a/plugins/users b/plugins/users
index b45703a..c919a2f 100644
--- a/plugins/users
+++ b/plugins/users
@@ -24,6 +24,10 @@ sub command :Tab(list,ls,shame,USERS) {
 sub hook_checkout {
     my ($class, $cart, $user, $transaction_id) = @_;
 
+    if ($cart->changed) {
+        say "Done:";
+        $cart->display;
+    }
     say "Transaction ID: $transaction_id";
 }
 
diff --git a/revbank b/revbank
index de31c80..4c8e878 100755
--- a/revbank
+++ b/revbank
@@ -127,8 +127,8 @@ call_hooks("startup");
 OUTER: for (;;) {
     print "\n" if not @words;
 
-    if (not @words and $cart->changed) {
-        call_hooks("cart_changed", $cart);
+    if (not @words) {
+        call_hooks("cart_changed", $cart) if $cart->changed;
     }
 
     my $split_input = 1;