|
Lines 53-60
sub pay {
Link Here
|
| 53 |
|
53 |
|
| 54 |
my $type = $is_writeoff ? 'WRITEOFF' : 'PAYMENT'; |
54 |
my $type = $is_writeoff ? 'WRITEOFF' : 'PAYMENT'; |
| 55 |
|
55 |
|
| 56 |
warn("RECORD:$borrowernumber::$amt"); |
|
|
| 57 |
|
| 58 |
my $account = Koha::Account->new( { patron_id => $borrowernumber } ); |
56 |
my $account = Koha::Account->new( { patron_id => $borrowernumber } ); |
| 59 |
|
57 |
|
| 60 |
if ($disallow_overpayment) { |
58 |
if ($disallow_overpayment) { |
| 61 |
- |
|
|