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 120-125
sub create_from_statistic {
Link Here
|
120 |
} |
121 |
} |
121 |
} |
122 |
} |
122 |
|
123 |
|
|
|
124 |
if ( $statistic->illrequest_id ) { |
125 |
my $illrequest = Koha::ILL::Requests->find( $statistic->illrequest_id ); |
126 |
if ($illrequest) { |
127 |
my @illattributes_to_pseudonymize = qw( |
128 |
type |
129 |
); |
130 |
|
131 |
my $extended_attributes_to_pseudonymize = |
132 |
$illrequest->extended_attributes->search( { type => { -in => \@illattributes_to_pseudonymize } } ); |
133 |
|
134 |
while ( my $attribute = $extended_attributes_to_pseudonymize->next ) { |
135 |
$self->_result->create_related( |
136 |
'pseudonymized_metadata_values', |
137 |
{ |
138 |
key => $attribute->type, |
139 |
value => $attribute->value, |
140 |
tablename => 'illrequestattributes', |
141 |
} |
142 |
); |
143 |
} |
144 |
|
145 |
if ( $illrequest->backend ) { |
146 |
$self->_result->create_related( |
147 |
'pseudonymized_metadata_values', |
148 |
{ |
149 |
key => 'backend', |
150 |
value => $illrequest->backend, |
151 |
tablename => 'illrequestattributes', |
152 |
} |
153 |
); |
154 |
} |
155 |
} |
156 |
} |
157 |
|
123 |
return $self; |
158 |
return $self; |
124 |
} |
159 |
} |
125 |
|
160 |
|
126 |
- |
|
|