View | Details | Raw Unified | Return to bug 26760
Collapse All | Expand All

(-)a/members/maninvoice.pl (-8 / +10 lines)
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
- 

Return to bug 26760