|
Lines 24-29
Link Here
|
| 24 |
|
24 |
|
| 25 |
use Modern::Perl; |
25 |
use Modern::Perl; |
| 26 |
use Try::Tiny; |
26 |
use Try::Tiny; |
|
|
27 |
use URI::Escape; |
| 27 |
|
28 |
|
| 28 |
use C4::Auth; |
29 |
use C4::Auth; |
| 29 |
use C4::Output; |
30 |
use C4::Output; |
|
Lines 172-184
if ($add) {
Link Here
|
| 172 |
if ( $add eq 'save and pay' ) { |
173 |
if ( $add eq 'save and pay' ) { |
| 173 |
my $url = sprintf( |
174 |
my $url = sprintf( |
| 174 |
'/cgi-bin/koha/members/paycollect.pl?borrowernumber=%s&pay_individual=1&debit_type_code=%s&amount=%s&amountoutstanding=%s&description=%s&itemnumber=%s&accountlines_id=%s', |
175 |
'/cgi-bin/koha/members/paycollect.pl?borrowernumber=%s&pay_individual=1&debit_type_code=%s&amount=%s&amountoutstanding=%s&description=%s&itemnumber=%s&accountlines_id=%s', |
| 175 |
$borrowernumber, |
176 |
map { uri_escape_utf8($_) } ( |
| 176 |
$line->debit_type_code, |
177 |
$borrowernumber, |
| 177 |
sprintf('%.2f', $line->amount), |
178 |
$line->debit_type_code, |
| 178 |
sprintf('%.2f', $line->amountoutstanding), |
179 |
$line->amount, |
| 179 |
$line->description, |
180 |
$line->amountoutstanding, |
| 180 |
$line->itemnumber, |
181 |
$line->description, |
| 181 |
$line->id |
182 |
$line->itemnumber, |
|
|
183 |
$line->id |
| 184 |
) |
| 182 |
); |
185 |
); |
| 183 |
|
186 |
|
| 184 |
print $input->redirect($url); |
187 |
print $input->redirect($url); |
| 185 |
- |
|
|