nomoney: remove unused labels

These loop control labels are leftovers from an earlier, more complicated, attempt
This commit is contained in:
Juerd Waalboer 2024-11-17 03:01:40 +01:00
parent a9040dcca1
commit daffe920ba

View file

@ -94,7 +94,7 @@ sub hook_checkout_prepare($class, $cart, $username, $transaction_id, @) {
my %resolved_balances = %balances; my %resolved_balances = %balances;
$resolved_balances{$_} += $resolved_deltas->{$_} for keys %$resolved_deltas; $resolved_balances{$_} += $resolved_deltas->{$_} for keys %$resolved_deltas;
ENTRY: for my $entry ($unresolved->entries) { for my $entry ($unresolved->entries) {
my $single = RevBank::Cart->new; my $single = RevBank::Cart->new;
$single->add_entry($entry); $single->add_entry($entry);
my $trial_deltas = $single->deltas($username); my $trial_deltas = $single->deltas($username);
@ -102,7 +102,7 @@ sub hook_checkout_prepare($class, $cart, $username, $transaction_id, @) {
my %broke_users; my %broke_users;
$entry->attribute('nomoney_users', \%broke_users); $entry->attribute('nomoney_users', \%broke_users);
ACCOUNT: for my $account (keys %$trial_deltas) { for my $account (keys %$trial_deltas) {
next if RevBank::Users::is_special($account); next if RevBank::Users::is_special($account);
next if $trial_deltas->{$account} > 0; next if $trial_deltas->{$account} > 0;