Lines 71-77
my $total_paid = $input->param('paid');
Link Here
|
71 |
|
71 |
|
72 |
my $select_lines = $input->param('selected'); |
72 |
my $select_lines = $input->param('selected'); |
73 |
my $pay_individual = $input->param('pay_individual'); |
73 |
my $pay_individual = $input->param('pay_individual'); |
74 |
my $select = $input->param('selected_accts'); |
74 |
my $selected_accts = $input->param('selected_accts'); |
75 |
my $payment_note = uri_unescape scalar $input->param('payment_note'); |
75 |
my $payment_note = uri_unescape scalar $input->param('payment_note'); |
76 |
my $payment_type = scalar $input->param('payment_type'); |
76 |
my $payment_type = scalar $input->param('payment_type'); |
77 |
my $accountlines_id; |
77 |
my $accountlines_id; |
Lines 165-175
if ( $total_paid and $total_paid ne '0.00' ) {
Link Here
|
165 |
print $input->redirect( |
165 |
print $input->redirect( |
166 |
"/cgi-bin/koha/members/pay.pl?borrowernumber=$borrowernumber&payment_id=$payment_id&change_given=$change_given"); |
166 |
"/cgi-bin/koha/members/pay.pl?borrowernumber=$borrowernumber&payment_id=$payment_id&change_given=$change_given"); |
167 |
} else { |
167 |
} else { |
168 |
if ($select) { |
168 |
if ($selected_accts) { |
169 |
if ( $select =~ /^([\d,]*).*/ ) { |
169 |
if ( $selected_accts =~ /^([\d,]*).*/ ) { |
170 |
$select = $1; # ensure passing no junk |
170 |
$selected_accts = $1; # ensure passing no junk |
171 |
} |
171 |
} |
172 |
my @acc = split /,/, $select; |
172 |
my @acc = split /,/, $selected_accts; |
173 |
my $note = $input->param('selected_accts_notes'); |
173 |
my $note = $input->param('selected_accts_notes'); |
174 |
|
174 |
|
175 |
my @lines = Koha::Account::Lines->search( |
175 |
my @lines = Koha::Account::Lines->search( |
176 |
- |
|
|