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

(-)a/Koha/ILL/Request.pm (+16 lines)
Lines 2009-2014 possibly records the fact that something happened Link Here
2009
sub store {
2009
sub store {
2010
    my ( $self, $attrs ) = @_;
2010
    my ( $self, $attrs ) = @_;
2011
2011
2012
    my $is_new_request  = !$self->in_storage;
2012
    my %updated_columns = $self->_result->get_dirty_columns;
2013
    my %updated_columns = $self->_result->get_dirty_columns;
2013
2014
2014
    my @holds;
2015
    my @holds;
Lines 2049-2054 sub store { Link Here
2049
        );
2050
        );
2050
    }
2051
    }
2051
2052
2053
    return $ret unless $is_new_request;
2054
2055
    C4::Stats::UpdateStats(
2056
        {
2057
            borrowernumber => $self->borrowernumber // undef,
2058
            branch         => $self->branchcode,
2059
            categorycode   => $self->patron ? $self->patron->categorycode : undef,
2060
            ccode          => undef,
2061
            itemnumber     => undef,
2062
            itemtype       => undef,
2063
            location       => undef,
2064
            type           => 'ill_request',
2065
        }
2066
    );
2067
2052
    return $ret;
2068
    return $ret;
2053
}
2069
}
2054
2070
(-)a/Koha/Statistic.pm (-4 / +6 lines)
Lines 27-34 use Koha::BackgroundJob::PseudonymizeStatistic; Link Here
27
27
28
use base qw(Koha::Object);
28
use base qw(Koha::Object);
29
29
30
our @allowed_accounts_types     = qw( writeoff payment );
30
our @allowed_accounts_types = qw( writeoff payment );
31
our @allowed_circulation_types  = qw( renew issue localuse return onsite_checkout recall item_found item_lost );
31
our @allowed_circulation_types =
32
    qw( renew issue localuse return onsite_checkout recall item_found item_lost ill_request );
32
our @mandatory_accounts_keys    = qw( type branch borrowernumber value );    # note that amount is mapped to value
33
our @mandatory_accounts_keys    = qw( type branch borrowernumber value );    # note that amount is mapped to value
33
our @mandatory_circulation_keys = qw( type branch borrowernumber itemnumber ccode itemtype );
34
our @mandatory_circulation_keys = qw( type branch borrowernumber itemnumber ccode itemtype );
34
35
Lines 149-155 Generate a pesudonymized version of the statistic. Link Here
149
sub pseudonymize {
150
sub pseudonymize {
150
    my ($self) = @_;
151
    my ($self) = @_;
151
152
152
    return unless ( $self->borrowernumber && grep { $_ eq $self->type } qw(renew issue return onsite_checkout) );
153
    return
154
        unless ( $self->borrowernumber && grep { $_ eq $self->type }
155
        qw(renew issue return onsite_checkout ill_request) );
153
156
154
    # FIXME When getting the object from svc/renewal we get a DateTime object
157
    # FIXME When getting the object from svc/renewal we get a DateTime object
155
    # normally we just fetch from DB to clear this, but statistics has no primary key
158
    # normally we just fetch from DB to clear this, but statistics has no primary key
156
- 

Return to bug 37901