|
Lines 277-288
sub library {
Link Here
|
| 277 |
|
277 |
|
| 278 |
my $extended_attributes = $request->extended_attributes; |
278 |
my $extended_attributes = $request->extended_attributes; |
| 279 |
|
279 |
|
| 280 |
Returns the linked I<Koha::ILL::Request::Attributes> resultset object. |
280 |
my $extended_attributes = $request->extended_attributes([ |
|
|
281 |
{ |
| 282 |
type => 'type', |
| 283 |
value => 'type_value', |
| 284 |
}, |
| 285 |
{ |
| 286 |
type => 'type2', |
| 287 |
value => 'type2_value', |
| 288 |
}, |
| 289 |
]); |
| 290 |
|
| 291 |
Getter or setter for extended attributes |
| 292 |
|
| 293 |
Getter: Returns the linked I <Koha::ILL::Request::Attributes> resultset object. |
| 294 |
|
| 295 |
Setter: Adds the supplied extended attributes to the request |
| 281 |
|
296 |
|
| 282 |
=cut |
297 |
=cut |
| 283 |
|
298 |
|
| 284 |
sub extended_attributes { |
299 |
sub extended_attributes { |
| 285 |
my ( $self ) = @_; |
300 |
my ( $self, $attributes ) = @_; |
|
|
301 |
|
| 302 |
if ($attributes) { |
| 303 |
my $schema = $self->_result->result_source->schema; |
| 304 |
$schema->txn_do( |
| 305 |
sub { |
| 306 |
for my $attribute (@$attributes) { |
| 307 |
$attribute->{backend} = $self->backend; |
| 308 |
eval { $self->_result->add_to_illrequestattributes($attribute); }; |
| 309 |
if ($@) { |
| 310 |
warn "Error adding attribute $attribute->{type}: $@"; |
| 311 |
} |
| 312 |
} |
| 313 |
} |
| 314 |
); |
| 315 |
} |
| 286 |
|
316 |
|
| 287 |
my $rs = $self->_result->extended_attributes; |
317 |
my $rs = $self->_result->extended_attributes; |
| 288 |
# We call search to use the filters in Koha::ILL::Request::Attributes->search |
318 |
# We call search to use the filters in Koha::ILL::Request::Attributes->search |
| 289 |
- |
|
|