Lines 30-35
use C4::Accounts;
Link Here
|
30 |
use C4::Koha; |
30 |
use C4::Koha; |
31 |
use C4::Branch; |
31 |
use C4::Branch; |
32 |
use Koha::Patron::Images; |
32 |
use Koha::Patron::Images; |
|
|
33 |
use Koha::Account; |
33 |
|
34 |
|
34 |
my $input = CGI->new(); |
35 |
my $input = CGI->new(); |
35 |
|
36 |
|
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 |
- |
|
|