View | Details | Raw Unified | Return to bug 10169
Collapse All | Expand All

(-)a/C4/Items.pm (-5 / +5 lines)
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
- 

Return to bug 10169