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