Lines 1341-1347
sub get_hostitemnumbers_of {
Link Here
|
1341 |
|
1341 |
|
1342 |
foreach my $hostfield ( $marcrecord->field($tag) ) { |
1342 |
foreach my $hostfield ( $marcrecord->field($tag) ) { |
1343 |
my $hostbiblionumber = $hostfield->subfield($biblio_s); |
1343 |
my $hostbiblionumber = $hostfield->subfield($biblio_s); |
|
|
1344 |
next unless $hostbiblionumber; # have tag, don't have $biblio_s subfield |
1344 |
my $linkeditemnumber = $hostfield->subfield($item_s); |
1345 |
my $linkeditemnumber = $hostfield->subfield($item_s); |
|
|
1346 |
if ( ! $linkeditemnumber ) { |
1347 |
warn "ERROR biblionumber $biblionumber has 773^0, but doesn't have 9"; |
1348 |
next; |
1349 |
} |
1345 |
my $is_from_biblio = Koha::Items->search({ itemnumber => $linkeditemnumber, biblionumber => $hostbiblionumber }); |
1350 |
my $is_from_biblio = Koha::Items->search({ itemnumber => $linkeditemnumber, biblionumber => $hostbiblionumber }); |
1346 |
push @returnhostitemnumbers, $linkeditemnumber |
1351 |
push @returnhostitemnumbers, $linkeditemnumber |
1347 |
if $is_from_biblio; |
1352 |
if $is_from_biblio; |
1348 |
- |
|
|