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

Return to bug 18790