|
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 166-176
if ( $total_paid and $total_paid ne '0.00' ) {
Link Here
|
| 166 |
print $input->redirect( |
166 |
print $input->redirect( |
| 167 |
"/cgi-bin/koha/members/pay.pl?borrowernumber=$borrowernumber&payment_id=$payment_id&change_given=$change_given"); |
167 |
"/cgi-bin/koha/members/pay.pl?borrowernumber=$borrowernumber&payment_id=$payment_id&change_given=$change_given"); |
| 168 |
} else { |
168 |
} else { |
| 169 |
if ($select) { |
169 |
if ($selected_accts) { |
| 170 |
if ( $select =~ /^([\d,]*).*/ ) { |
170 |
if ( $selected_accts =~ /^([\d,]*).*/ ) { |
| 171 |
$select = $1; # ensure passing no junk |
171 |
$selected_accts = $1; # ensure passing no junk |
| 172 |
} |
172 |
} |
| 173 |
my @acc = split /,/, $select; |
173 |
my @acc = split /,/, $selected_accts; |
| 174 |
my $note = $input->param('selected_accts_notes'); |
174 |
my $note = $input->param('selected_accts_notes'); |
| 175 |
|
175 |
|
| 176 |
my @lines = Koha::Account::Lines->search( |
176 |
my @lines = Koha::Account::Lines->search( |
| 177 |
- |
|
|