Lines 29-34
use C4::Members::Attributes qw(GetBorrowerAttributes);
Link Here
|
29 |
use C4::Accounts; |
29 |
use C4::Accounts; |
30 |
use C4::Koha; |
30 |
use C4::Koha; |
31 |
use C4::Branch; |
31 |
use C4::Branch; |
|
|
32 |
use Koha::Account; |
32 |
|
33 |
|
33 |
my $input = CGI->new(); |
34 |
my $input = CGI->new(); |
34 |
|
35 |
|
Lines 127-137
if ( $total_paid and $total_paid ne '0.00' ) {
Link Here
|
127 |
recordpayment_selectaccts( $borrowernumber, $total_paid, \@acc, $note ); |
128 |
recordpayment_selectaccts( $borrowernumber, $total_paid, \@acc, $note ); |
128 |
} else { |
129 |
} else { |
129 |
my $note = $input->param('selected_accts_notes'); |
130 |
my $note = $input->param('selected_accts_notes'); |
130 |
recordpayment( $borrowernumber, $total_paid, '', $note ); |
131 |
Koha::Account->new( { patron_id => $borrowernumber } ) |
|
|
132 |
->pay( { amount => $total_paid, note => $note } ); |
131 |
} |
133 |
} |
132 |
|
134 |
|
133 |
# recordpayment does not return success or failure so lets redisplay the boraccount |
|
|
134 |
|
135 |
print $input->redirect( |
135 |
print $input->redirect( |
136 |
"/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber" |
136 |
"/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber" |
137 |
); |
137 |
); |
138 |
- |
|
|