|
Lines 18-23
package Koha::Account::Line;
Link Here
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
|
19 |
|
| 20 |
use Carp; |
20 |
use Carp; |
|
|
21 |
use Data::Dumper; |
| 22 |
|
| 23 |
use C4::Log qw(logaction); |
| 21 |
|
24 |
|
| 22 |
use Koha::Database; |
25 |
use Koha::Database; |
| 23 |
use Koha::Items; |
26 |
use Koha::Items; |
|
Lines 82-87
sub void {
Link Here
|
| 82 |
)->store(); |
85 |
)->store(); |
| 83 |
} |
86 |
} |
| 84 |
|
87 |
|
|
|
88 |
if ( C4::Context->preference("FinesLog") ) { |
| 89 |
logaction("FINES", 'VOID', $self->borrowernumber, Dumper({ |
| 90 |
action => 'void_payment', |
| 91 |
borrowernumber => $self->borrowernumber,, |
| 92 |
amount => $self->amount, |
| 93 |
amountoutstanding => $self->amountoutstanding, |
| 94 |
description => $self->description, |
| 95 |
accounttype => $self->accounttype, |
| 96 |
payment_type => $self->payment_type, |
| 97 |
note => $self->note, |
| 98 |
itemnumber => $self->itemnumber, |
| 99 |
manager_id => $self->manager_id, |
| 100 |
offsets => [ map { $_->unblessed } @account_offsets ], |
| 101 |
})); |
| 102 |
} |
| 103 |
|
| 85 |
$self->set( |
104 |
$self->set( |
| 86 |
{ |
105 |
{ |
| 87 |
accounttype => 'VOID', |
106 |
accounttype => 'VOID', |
| 88 |
- |
|
|