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 Koha::Patron::Images; |
31 |
use Koha::Patron::Images; |
|
|
32 |
use Koha::Account; |
32 |
|
33 |
|
33 |
use Koha::Patron::Categories; |
34 |
use Koha::Patron::Categories; |
34 |
|
35 |
|
Lines 129-139
if ( $total_paid and $total_paid ne '0.00' ) {
Link Here
|
129 |
recordpayment_selectaccts( $borrowernumber, $total_paid, \@acc, $note ); |
130 |
recordpayment_selectaccts( $borrowernumber, $total_paid, \@acc, $note ); |
130 |
} else { |
131 |
} else { |
131 |
my $note = $input->param('selected_accts_notes'); |
132 |
my $note = $input->param('selected_accts_notes'); |
132 |
recordpayment( $borrowernumber, $total_paid, '', $note ); |
133 |
Koha::Account->new( { patron_id => $borrowernumber } ) |
|
|
134 |
->pay( { amount => $total_paid, note => $note } ); |
133 |
} |
135 |
} |
134 |
|
136 |
|
135 |
# recordpayment does not return success or failure so lets redisplay the boraccount |
|
|
136 |
|
137 |
print $input->redirect( |
137 |
print $input->redirect( |
138 |
"/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber" |
138 |
"/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber" |
139 |
); |
139 |
); |
140 |
- |
|
|