Lines 153-163
foreach my $biblioNumber (@biblionumbers) {
Link Here
|
153 |
my $marcrecord= GetMarcBiblio({ biblionumber => $biblioNumber }); |
153 |
my $marcrecord= GetMarcBiblio({ biblionumber => $biblioNumber }); |
154 |
|
154 |
|
155 |
# flag indicating existence of at least one item linked via a host record |
155 |
# flag indicating existence of at least one item linked via a host record |
156 |
my $hostitemsflag; |
|
|
157 |
# adding items linked via host biblios |
156 |
# adding items linked via host biblios |
158 |
my @hostitemInfos = GetHostItemsInfo($marcrecord); |
157 |
my @hostitemInfos = GetHostItemsInfo($marcrecord); |
159 |
if (@hostitemInfos){ |
158 |
if (@hostitemInfos){ |
160 |
$hostitemsflag =1; |
|
|
161 |
push (@itemInfos,@hostitemInfos); |
159 |
push (@itemInfos,@hostitemInfos); |
162 |
} |
160 |
} |
163 |
|
161 |
|
Lines 545-551
foreach my $biblioNum (@biblionumbers) {
Link Here
|
545 |
|
543 |
|
546 |
# if the items belongs to a host record, show link to host record |
544 |
# if the items belongs to a host record, show link to host record |
547 |
if ( $itemInfo->{biblionumber} ne $biblioNum ) { |
545 |
if ( $itemInfo->{biblionumber} ne $biblioNum ) { |
548 |
$biblioLoopIter{hostitemsflag} = 1; |
|
|
549 |
$itemLoopIter->{hostbiblionumber} = $itemInfo->{biblionumber}; |
546 |
$itemLoopIter->{hostbiblionumber} = $itemInfo->{biblionumber}; |
550 |
$itemLoopIter->{hosttitle} = Koha::Biblios->find( $itemInfo->{biblionumber} )->title; |
547 |
$itemLoopIter->{hosttitle} = Koha::Biblios->find( $itemInfo->{biblionumber} )->title; |
551 |
} |
548 |
} |