|
Lines 2218-2223
sub can_patron_place_ill_in_opac {
Link Here
|
| 2218 |
return 1; |
2218 |
return 1; |
| 2219 |
} |
2219 |
} |
| 2220 |
|
2220 |
|
|
|
2221 |
=head3 pseudonymize_illrequestattributes |
| 2222 |
|
| 2223 |
$illrequest->pseudonymize_illrequestattributes($transaction); |
| 2224 |
|
| 2225 |
This method creates a Koha::PseudonymizedTransaction object, adding pseudonymized ILL request attributes and backend info as metadata values. |
| 2226 |
|
| 2227 |
=cut |
| 2228 |
|
| 2229 |
sub pseudonymize_illrequestattributes { |
| 2230 |
my ( $self, $transaction ) = @_; |
| 2231 |
|
| 2232 |
my @attributes_to_pseudonymize = qw( |
| 2233 |
type |
| 2234 |
); |
| 2235 |
|
| 2236 |
my $extended_attributes = $self->extended_attributes; |
| 2237 |
while ( my $attribute = $extended_attributes->next ) { |
| 2238 |
if ( grep { $_ eq $attribute->type } @attributes_to_pseudonymize ) { |
| 2239 |
$transaction->_result->create_related( |
| 2240 |
'pseudonymized_metadata_values', |
| 2241 |
{ |
| 2242 |
key => $attribute->type, |
| 2243 |
value => $attribute->value, |
| 2244 |
tablename => 'illrequestattributes', |
| 2245 |
} |
| 2246 |
) if $attribute->value ne ''; |
| 2247 |
} |
| 2248 |
} |
| 2249 |
|
| 2250 |
if ( $self->backend ) { |
| 2251 |
$transaction->_result->create_related( |
| 2252 |
'pseudonymized_metadata_values', |
| 2253 |
{ |
| 2254 |
key => 'backend', |
| 2255 |
value => $self->backend, |
| 2256 |
tablename => 'illrequestattributes', |
| 2257 |
} |
| 2258 |
); |
| 2259 |
} |
| 2260 |
} |
| 2261 |
|
| 2221 |
=head3 get_op_param_deprecation |
2262 |
=head3 get_op_param_deprecation |
| 2222 |
|
2263 |
|
| 2223 |
my $op = $req->check_url_param_deprecation($params); |
2264 |
my $op = $req->check_url_param_deprecation($params); |