From df8c84672d17e722cf4191fc4f5d1bfdb9398535 Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@tnx.nl>
Date: Thu, 2 Nov 2023 04:44:24 +0100
Subject: [PATCH] tail/users: fix warning when used with old log files

---
 plugins/tail  | 2 ++
 plugins/users | 2 ++
 revbank       | 2 +-
 3 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/plugins/tail b/plugins/tail
index 1e59655..35c7f88 100644
--- a/plugins/tail
+++ b/plugins/tail
@@ -18,6 +18,8 @@ sub command :Tab(tail) ($self, $cart, $command, @) {
         RevBank::Users::is_hidden($u) and next;
 
         shift @lines if @lines == $n;
+
+        $qty = 1 if $qty eq 'EUR';  # log files before commit 63f81e37 (2019-11-05)
         push @lines, [$dt, $u, ($dir eq 'GAIN' ? "+ $amount" : $amount), $desc, $qty];
     }
     close $fh;
diff --git a/plugins/users b/plugins/users
index 7509f70..1fdf995 100644
--- a/plugins/users
+++ b/plugins/users
@@ -68,6 +68,8 @@ sub _grep($user) {
         $c eq 'CHECKOUT' or next;  # real check after expensive split
         lc($u) eq $user or next;
 
+        $qty = 1 if $qty eq 'EUR';  # log files before commit 63f81e37 (2019-11-05)
+
         push @lines, sprintf "%s %8s %s%-s", (
             $dt =~ s/_/ /r,
             $dir eq 'GAIN' ? "+ $amount" : $amount,  # like R::A->string_flipped
diff --git a/revbank b/revbank
index 5803ecb..655282f 100755
--- a/revbank
+++ b/revbank
@@ -17,7 +17,7 @@ use RevBank::Global;
 use RevBank::Messages;
 use RevBank::Cart;
 
-our $VERSION = "4.1.0";
+our $VERSION = "4.1.1";
 our %HELP1 = (
     "abort" => "Abort the current transaction",
 );