|
Lines 111-139
if ( $total_paid and $total_paid ne '0.00' ) {
Link Here
|
| 111 |
); |
111 |
); |
| 112 |
} else { |
112 |
} else { |
| 113 |
if ($individual) { |
113 |
if ($individual) { |
| 114 |
if ( $total_paid == $total_due ) { |
114 |
my $line = Koha::Account::Lines->find($accountlines_id); |
| 115 |
my $line = Koha::Account::Lines->find($accountlines_id); |
115 |
Koha::Account->new( { patron_id => $borrowernumber } )->pay( |
| 116 |
Koha::Account->new( { patron_id => $borrowernumber } )->pay( |
116 |
{ |
| 117 |
{ |
117 |
lines => [$line], |
| 118 |
lines => [$line], |
118 |
amount => $total_paid, |
| 119 |
amount => $total_paid, |
119 |
library_id => $branch, |
| 120 |
library_id => $branch, |
120 |
note => $payment_note |
| 121 |
note => $payment_note |
121 |
} |
| 122 |
} |
122 |
); |
| 123 |
); |
|
|
| 124 |
} |
| 125 |
else { |
| 126 |
my $line = Koha::Account::Lines->find($accountlines_id); |
| 127 |
|
| 128 |
Koha::Account->new( { patron_id => $borrowernumber, } )->pay( |
| 129 |
{ |
| 130 |
amount => $total_paid, |
| 131 |
lines => [$line], |
| 132 |
note => $payment_note, |
| 133 |
library_id => $branch, |
| 134 |
} |
| 135 |
); |
| 136 |
} |
| 137 |
print $input->redirect( |
123 |
print $input->redirect( |
| 138 |
"/cgi-bin/koha/members/pay.pl?borrowernumber=$borrowernumber"); |
124 |
"/cgi-bin/koha/members/pay.pl?borrowernumber=$borrowernumber"); |
| 139 |
} else { |
125 |
} else { |
| 140 |
- |
|
|