|
Lines 263-268
sub apply {
Link Here
|
| 263 |
$self->amountoutstanding( $available_credit * -1 )->store; |
263 |
$self->amountoutstanding( $available_credit * -1 )->store; |
| 264 |
$debit->amountoutstanding( $owed - $amount_to_cancel )->store; |
264 |
$debit->amountoutstanding( $owed - $amount_to_cancel )->store; |
| 265 |
|
265 |
|
|
|
266 |
$debit->discard_changes; # Refresh values from DB to clear floating point remainders |
| 267 |
|
| 266 |
# Same logic exists in Koha::Account::pay |
268 |
# Same logic exists in Koha::Account::pay |
| 267 |
if ( $debit->amountoutstanding == 0 |
269 |
if ( $debit->amountoutstanding == 0 |
| 268 |
&& $debit->itemnumber |
270 |
&& $debit->itemnumber |
| 269 |
- |
|
|