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