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

Inflation

Browse source 
Roughly 4%
This commit is contained in:
Juerd Waalboer 2024-05-17 22:48:18 +02:00
parent 459093dba9
commit 04cf728010
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/RevBank/Messages.pm
View file

@ -64,7 +64,7 @@ sub hook_user_balance($class, $username, $old, $delta, $new, @) {
my $sign = $delta->cents >= 0 ? '+' : '-'; my $sign = $delta->cents >= 0 ? '+' : '-';
my $rood = $new->cents < 0 ? '31;' : ''; my $rood = $new->cents < 0 ? '31;' : '';
my $abs = $delta->abs; my $abs = $delta->abs;
my $warn = $new->cents < -2200 ? " \e[5;1m(!!)\e[0m" : ""; my $warn = $new->cents < -2300 ? " \e[5;1m(!!)\e[0m" : "";
$_ = $_->string("+") for $old, $new; $_ = $_->string("+") for $old, $new;
printf "New balance for $username: $old $sign $abs = \e[${rood}1m$new\e[0m$warn\n", printf "New balance for $username: $old $sign $abs = \e[${rood}1m$new\e[0m$warn\n",