|
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 |
- |
|
|