View | Details | Raw Unified | Return to bug 18790
Collapse All | Expand All

(-)a/Koha/Account/Line.pm (-1 / +19 lines)
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
- 

Return to bug 18790