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

(-)a/Koha/PseudonymizedTransaction.pm (-1 / +35 lines)
Lines 22-27 use List::MoreUtils qw(any); Link Here
22
use Koha::Database;
22
use Koha::Database;
23
use Koha::Exceptions::Config;
23
use Koha::Exceptions::Config;
24
use Koha::Patrons;
24
use Koha::Patrons;
25
use Koha::ILL::Requests;
25
26
26
use base qw(Koha::Object);
27
use base qw(Koha::Object);
27
28
Lines 113-118 sub new_from_statistic { Link Here
113
        }
114
        }
114
    }
115
    }
115
116
117
    if ( $statistic->illrequest_id ) {
118
        my $illrequest = Koha::ILL::Requests->find( $statistic->illrequest_id );
119
        if ($illrequest) {
120
            my @illattributes_to_pseudonymize = qw(
121
                type
122
            );
123
124
            my $extended_attributes_to_pseudonymize =
125
                $illrequest->extended_attributes->search( { type => { -in => \@illattributes_to_pseudonymize } } );
126
127
            while ( my $attribute = $extended_attributes_to_pseudonymize->next ) {
128
                $self->_result->create_related(
129
                    'pseudonymized_metadata_values',
130
                    {
131
                        key       => $attribute->type,
132
                        value     => $attribute->value,
133
                        tablename => 'illrequestattributes',
134
                    }
135
                );
136
            }
137
138
            if ( $illrequest->backend ) {
139
                $self->_result->create_related(
140
                    'pseudonymized_metadata_values',
141
                    {
142
                        key       => 'backend',
143
                        value     => $illrequest->backend,
144
                        tablename => 'illrequestattributes',
145
                    }
146
                );
147
            }
148
        }
149
    }
150
116
    return $self;
151
    return $self;
117
}
152
}
118
153
119
- 

Return to bug 37901