|
Lines 470-480
Returns the related Koha::Items object for this biblio
Link Here
|
| 470 |
=cut |
470 |
=cut |
| 471 |
|
471 |
|
| 472 |
sub items { |
472 |
sub items { |
| 473 |
my ($self) = @_; |
473 |
my ($self,$params) = @_; |
| 474 |
|
474 |
|
| 475 |
my $items_rs = $self->_result->items; |
475 |
my $items_rs = $self->_result->items; |
| 476 |
|
476 |
|
| 477 |
return Koha::Items->_new_from_dbic( $items_rs ); |
477 |
return Koha::Items->_new_from_dbic( $items_rs ) unless $params->{host_items}; |
|
|
478 |
|
| 479 |
my $host_itemnumbers = $self->_host_itemnumbers(); |
| 480 |
my $params = { -or => [biblionumber => $self->id] }; |
| 481 |
push @{$params->{'-or'}}, itemnumber => { -in => $host_itemnumbers } if $host_itemnumbers; |
| 482 |
|
| 483 |
return Koha::Items->search($params); |
| 478 |
} |
484 |
} |
| 479 |
|
485 |
|
| 480 |
=head3 host_items |
486 |
=head3 host_items |
|
Lines 491-502
sub host_items {
Link Here
|
| 491 |
return Koha::Items->new->empty |
497 |
return Koha::Items->new->empty |
| 492 |
unless C4::Context->preference('EasyAnalyticalRecords'); |
498 |
unless C4::Context->preference('EasyAnalyticalRecords'); |
| 493 |
|
499 |
|
|
|
500 |
my $host_itemnumbers = $self->_host_itemnumbers; |
| 501 |
|
| 502 |
return Koha::Items->search( { itemnumber => { -in => $host_itemnumbers } } ); |
| 503 |
} |
| 504 |
|
| 505 |
=head3 _host_itemnumbers |
| 506 |
|
| 507 |
my $host_itemnumber = $biblio->_host_itemnumbers(); |
| 508 |
|
| 509 |
Return the itemnumbers for analytical items on this record |
| 510 |
|
| 511 |
=cut |
| 512 |
|
| 513 |
sub _host_itemnumbers { |
| 514 |
my ($self) = @_; |
| 515 |
|
| 494 |
my $marcflavour = C4::Context->preference("marcflavour"); |
516 |
my $marcflavour = C4::Context->preference("marcflavour"); |
| 495 |
my $analyticfield = '773'; |
517 |
my $analyticfield = '773'; |
| 496 |
if ( $marcflavour eq 'MARC21' ) { |
518 |
if ( $marcflavour eq 'UNIMARC' ) { |
| 497 |
$analyticfield = '773'; |
|
|
| 498 |
} |
| 499 |
elsif ( $marcflavour eq 'UNIMARC' ) { |
| 500 |
$analyticfield = '461'; |
519 |
$analyticfield = '461'; |
| 501 |
} |
520 |
} |
| 502 |
my $marc_record = $self->metadata->record; |
521 |
my $marc_record = $self->metadata->record; |
|
Lines 504-513
sub host_items {
Link Here
|
| 504 |
foreach my $field ( $marc_record->field($analyticfield) ) { |
523 |
foreach my $field ( $marc_record->field($analyticfield) ) { |
| 505 |
push @itemnumbers, $field->subfield('9'); |
524 |
push @itemnumbers, $field->subfield('9'); |
| 506 |
} |
525 |
} |
| 507 |
|
526 |
return \@itemnumbers; |
| 508 |
return Koha::Items->search( { itemnumber => { -in => \@itemnumbers } } ); |
|
|
| 509 |
} |
527 |
} |
| 510 |
|
528 |
|
|
|
529 |
|
| 511 |
=head3 itemtype |
530 |
=head3 itemtype |
| 512 |
|
531 |
|
| 513 |
my $itemtype = $biblio->itemtype(); |
532 |
my $itemtype = $biblio->itemtype(); |