|
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 554-560
foreach my $biblioNum (@biblionumbers) {
Link Here
|
| 554 |
|
552 |
|
| 555 |
# if the items belongs to a host record, show link to host record |
553 |
# if the items belongs to a host record, show link to host record |
| 556 |
if ( $itemInfo->{biblionumber} ne $biblioNum ) { |
554 |
if ( $itemInfo->{biblionumber} ne $biblioNum ) { |
| 557 |
$biblioLoopIter{hostitemsflag} = 1; |
|
|
| 558 |
$itemLoopIter->{hostbiblionumber} = $itemInfo->{biblionumber}; |
555 |
$itemLoopIter->{hostbiblionumber} = $itemInfo->{biblionumber}; |
| 559 |
$itemLoopIter->{hosttitle} = Koha::Biblios->find( $itemInfo->{biblionumber} )->title; |
556 |
$itemLoopIter->{hosttitle} = Koha::Biblios->find( $itemInfo->{biblionumber} )->title; |
| 560 |
} |
557 |
} |