Lines 94-109
if ( $response->is_success ) {
Link Here
|
94 |
$amount = $params{PAYMENTINFO_0_AMT}; |
94 |
$amount = $params{PAYMENTINFO_0_AMT}; |
95 |
|
95 |
|
96 |
my $account = Koha::Account->new( { patron_id => $borrowernumber } ); |
96 |
my $account = Koha::Account->new( { patron_id => $borrowernumber } ); |
97 |
foreach my $accountlines_id (@accountlines) { |
97 |
my @lines = Koha::Account::Lines->search( |
98 |
my $line = Koha::Account::Lines->find($accountlines_id); |
98 |
{ |
99 |
$account->pay( |
99 |
accountlines_id => { -in => \@accountlines } |
100 |
{ |
100 |
} |
101 |
amount => $amount, |
101 |
); |
102 |
lines => [$line], |
102 |
|
103 |
note => 'PayPal' |
103 |
$account->pay( |
104 |
} |
104 |
{ |
105 |
); |
105 |
amount => $amount, |
106 |
} |
106 |
lines => \@lines, |
|
|
107 |
note => 'PayPal' |
108 |
} |
109 |
); |
107 |
} |
110 |
} |
108 |
else { |
111 |
else { |
109 |
$error = "PAYPAL_ERROR_PROCESSING"; |
112 |
$error = "PAYPAL_ERROR_PROCESSING"; |
110 |
- |
|
|