tail/users: fix warning when used with old log files

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;

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

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",
 );