|
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 |
- |
|
|