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

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

Browse source
This commit is contained in:
Juerd Waalboer 2023-11-02 04:44:24 +01:00
parent 1156864fd2
commit df8c84672d
3 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
plugins/tail
View file

@ -18,6 +18,8 @@ sub command :Tab(tail) ($self, $cart, $command, @) {
RevBank::Users::is_hidden($u) and next; RevBank::Users::is_hidden($u) and next;
shift @lines if @lines == $n; 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]; push @lines, [$dt, $u, ($dir eq 'GAIN' ? "+ $amount" : $amount), $desc, $qty];
} }
close $fh; close $fh;

2
plugins/users
View file

@ -68,6 +68,8 @@ sub _grep($user) {
$c eq 'CHECKOUT' or next; # real check after expensive split $c eq 'CHECKOUT' or next; # real check after expensive split
lc($u) eq $user or next; 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", ( push @lines, sprintf "%s %8s %s%-s", (
$dt =~ s/_/ /r, $dt =~ s/_/ /r,
$dir eq 'GAIN' ? "+ $amount" : $amount, # like R::A->string_flipped $dir eq 'GAIN' ? "+ $amount" : $amount, # like R::A->string_flipped

2
revbank
View file

@ -17,7 +17,7 @@ use RevBank::Global;
use RevBank::Messages; use RevBank::Messages;
use RevBank::Cart; use RevBank::Cart;
our $VERSION = "4.1.0"; our $VERSION = "4.1.1";
our %HELP1 = ( our %HELP1 = (
"abort" => "Abort the current transaction", "abort" => "Abort the current transaction",
); );