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