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

nomoney: reduce indentation complexity, fix comment

Browse source
This commit is contained in:
Juerd Waalboer 2024-11-17 03:07:00 +01:00
parent daffe920ba
commit ee8855bfc7
1 changed files with 16 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
plugins/nomoney
View file

@ -58,7 +58,8 @@ sub hook_checkout_prepare($class, $cart, $username, $transaction_id, @) {
my $old = $balances{$account} = RevBank::Users::balance($account);
my $new = $old + $deltas->{$account};
if ($new < 0 and $new < $old) {
next if $new >= 0 or $new > $old;
for my $entry ($cart->entries) {
my $plugin = $entry->attribute('plugin') // _derive_plugin($entry->{caller});
next if not $plugin;
@ -76,19 +77,19 @@ sub hook_checkout_prepare($class, $cart, $username, $transaction_id, @) {
$unresolved->add_entry($entry);
}
}
}
return if not $unresolved->size; # allow transaction as is
my $newline = 0;
if ($cart->changed) {
# Show original cart before changing it, if it hasn't before
# Show original cart before changing it, if it hasn't been shown before
say "Pending:";
$cart->display;
$newline = 1;
}
$cart->delete($_) for @{ $unresolved->{entries} };
# Find entries that can be done, by brute force, and add them back.
RESOLVE: {
my $resolved_deltas = $cart->deltas($username);
my %resolved_balances = %balances;