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

(-)a/members/pay.pl (-3 / +2 lines)
Lines 264-276 sub payselected { Link Here
264
    foreach (@params) {
264
    foreach (@params) {
265
        if (/^incl_par_(\d+)$/) {
265
        if (/^incl_par_(\d+)$/) {
266
            my $index = $1;
266
            my $index = $1;
267
            push @lines_to_pay, $input->param("accountlines_id$index");
267
            push @lines_to_pay, scalar $input->param("accountlines_id$index");
268
            $amt += $input->param("amountoutstanding$index");
268
            $amt += $input->param("amountoutstanding$index");
269
        }
269
        }
270
    }
270
    }
271
    $amt = '&amt=' . $amt;
271
    $amt = '&amt=' . $amt;
272
    my $sel = '&selected=' . join ',', @lines_to_pay;
272
    my $sel = '&selected=' . join ',', @lines_to_pay;
273
    my $notes = '&notes=' . join("%0A", map { $input->param("payment_note_$_") } @lines_to_pay );
273
    my $notes = '&notes=' . join("%0A", map { scalar $input->param("payment_note_$_") } @lines_to_pay );
274
    my $redirect =
274
    my $redirect =
275
        "/cgi-bin/koha/members/paycollect.pl?borrowernumber=$borrowernumber"
275
        "/cgi-bin/koha/members/paycollect.pl?borrowernumber=$borrowernumber"
276
      . $amt
276
      . $amt
277
- 

Return to bug 19258