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::Account::Offsets; |
26 |
use Koha::Account::Offsets; |
Lines 69-74
sub void {
Link Here
|
69 |
)->store(); |
72 |
)->store(); |
70 |
} |
73 |
} |
71 |
|
74 |
|
|
|
75 |
if ( C4::Context->preference("FinesLog") ) { |
76 |
logaction("FINES", 'VOID', $self->borrowernumber, Dumper({ |
77 |
action => 'void_payment', |
78 |
borrowernumber => $self->borrowernumber,, |
79 |
amount => $self->amount, |
80 |
amountoutstanding => $self->amountoutstanding, |
81 |
description => $self->description, |
82 |
accounttype => $self->accounttype, |
83 |
payment_type => $self->payment_type, |
84 |
note => $self->note, |
85 |
itemnumber => $self->itemnumber, |
86 |
manager_id => $self->manager_id, |
87 |
offsets => [ map { $_->unblessed } @account_offsets ], |
88 |
})); |
89 |
} |
90 |
|
72 |
$self->set( |
91 |
$self->set( |
73 |
{ |
92 |
{ |
74 |
accounttype => 'VOID', |
93 |
accounttype => 'VOID', |
75 |
- |
|
|