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