@@ -, +, @@ once --- opac/opac-account-pay-paypal-return.pl | 23 +++++++++++++---------- 1 file changed, 13 insertions(+), 10 deletions(-) --- a/opac/opac-account-pay-paypal-return.pl +++ a/opac/opac-account-pay-paypal-return.pl @@ -94,16 +94,19 @@ if ( $response->is_success ) { $amount = $params{PAYMENTINFO_0_AMT}; my $account = Koha::Account->new( { patron_id => $borrowernumber } ); - foreach my $accountlines_id (@accountlines) { - my $line = Koha::Account::Lines->find($accountlines_id); - $account->pay( - { - amount => $amount, - lines => [$line], - note => 'PayPal' - } - ); - } + my @lines = Koha::Account::Lines->search( + { + accountlines_id => { -in => \@accountlines } + } + ); + + $account->pay( + { + amount => $amount, + lines => \@lines, + note => 'PayPal' + } + ); } else { $error = "PAYPAL_ERROR_PROCESSING"; --