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

31
plugins/nomoney
View file

@ -58,23 +58,23 @@ sub hook_checkout_prepare($class, $cart, $username, $transaction_id, @) {
my $old = $balances{$account} = RevBank::Users::balance($account); my $old = $balances{$account} = RevBank::Users::balance($account);
my $new = $old + $deltas->{$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;
next if none { $plugin eq $_ } @deny_plugins;
my @contra_users = grep { for my $entry ($cart->entries) {
not RevBank::Users::is_special($_) my $plugin = $entry->attribute('plugin') // _derive_plugin($entry->{caller});
} map { next if not $plugin;
$_->{user} next if none { $plugin eq $_ } @deny_plugins;
} $entry->contras;
next if $allow_multi_user and @contra_users > 1; my @contra_users = grep {
next if none { $account eq $_ } $entry->user // $username, @contra_users; not RevBank::Users::is_special($_)
} map {
$_->{user}
} $entry->contras;
$unresolved->add_entry($entry); next if $allow_multi_user and @contra_users > 1;
} next if none { $account eq $_ } $entry->user // $username, @contra_users;
$unresolved->add_entry($entry);
} }
} }
@ -82,13 +82,14 @@ sub hook_checkout_prepare($class, $cart, $username, $transaction_id, @) {
my $newline = 0; my $newline = 0;
if ($cart->changed) { 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:"; say "Pending:";
$cart->display; $cart->display;
$newline = 1; $newline = 1;
} }
$cart->delete($_) for @{ $unresolved->{entries} }; $cart->delete($_) for @{ $unresolved->{entries} };
# Find entries that can be done, by brute force, and add them back.
RESOLVE: { RESOLVE: {
my $resolved_deltas = $cart->deltas($username); my $resolved_deltas = $cart->deltas($username);
my %resolved_balances = %balances; my %resolved_balances = %balances;