Lines 1392-1400
sub GetItemsLocationInfo {
Link Here
|
1392 |
sub GetHostItemsInfo { |
1392 |
sub GetHostItemsInfo { |
1393 |
my ($record) = @_; |
1393 |
my ($record) = @_; |
1394 |
my @returnitemsInfo; |
1394 |
my @returnitemsInfo; |
1395 |
|
1395 |
return unless $record; |
1396 |
if (C4::Context->preference('marcflavour') eq 'MARC21' || |
1396 |
if ( (C4::Context->preference('marcflavour') eq 'MARC21' || |
1397 |
C4::Context->preference('marcflavour') eq 'NORMARC'){ |
1397 |
C4::Context->preference('marcflavour') eq 'NORMARC') |
|
|
1398 |
&& $record->field('773') ){ |
1398 |
foreach my $hostfield ( $record->field('773') ) { |
1399 |
foreach my $hostfield ( $record->field('773') ) { |
1399 |
my $hostbiblionumber = $hostfield->subfield("0"); |
1400 |
my $hostbiblionumber = $hostfield->subfield("0"); |
1400 |
my $linkeditemnumber = $hostfield->subfield("9"); |
1401 |
my $linkeditemnumber = $hostfield->subfield("9"); |
Lines 1406-1412
sub GetHostItemsInfo {
Link Here
|
1406 |
} |
1407 |
} |
1407 |
} |
1408 |
} |
1408 |
} |
1409 |
} |
1409 |
} elsif ( C4::Context->preference('marcflavour') eq 'UNIMARC'){ |
1410 |
} elsif ( C4::Context->preference('marcflavour') eq 'UNIMARC' && $record->field('461') ){ |
1410 |
foreach my $hostfield ( $record->field('461') ) { |
1411 |
foreach my $hostfield ( $record->field('461') ) { |
1411 |
my $hostbiblionumber = $hostfield->subfield("0"); |
1412 |
my $hostbiblionumber = $hostfield->subfield("0"); |
1412 |
my $linkeditemnumber = $hostfield->subfield("9"); |
1413 |
my $linkeditemnumber = $hostfield->subfield("9"); |
1413 |
- |
|
|