Attachment #66866 for bug #19258

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




    foreach (@params) {
        if (/^incl_par_(\d+)$/) {
            my $index = $1;
            push @lines_to_pay, scalar $input->param("accountlines_id$index");
            $amt += $input->param("amountoutstanding$index");
        }
    }
    $amt = '&amt=' . $amt;
    my $sel = '&selected=' . join ',', @lines_to_pay;
    my $notes = '&notes=' . join("%0A", map { scalar $input->param("payment_note_$_") } @lines_to_pay );
    my $redirect =
        "/cgi-bin/koha/members/paycollect.pl?borrowernumber=$borrowernumber"
      . $amt
- 

Return to bug 19258

Lines 264-276 sub payselected { Link Here

(-)a/members/pay.pl (-3 / +2 lines)
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	-