Lines 61-66
foreach my $biblionumber ( @bibs ) {
Link Here
|
61 |
|
61 |
|
62 |
my $dat = &GetBiblioData($biblionumber); |
62 |
my $dat = &GetBiblioData($biblionumber); |
63 |
next unless $dat; |
63 |
next unless $dat; |
|
|
64 |
my $biblio = Koha::Biblios->find($biblionumber); |
64 |
my $record = &GetMarcBiblio({ biblionumber => $biblionumber }); |
65 |
my $record = &GetMarcBiblio({ biblionumber => $biblionumber }); |
65 |
my $marcnotesarray = GetMarcNotes( $record, $marcflavour ); |
66 |
my $marcnotesarray = GetMarcNotes( $record, $marcflavour ); |
66 |
my $marcauthorsarray = GetMarcAuthors( $record, $marcflavour ); |
67 |
my $marcauthorsarray = GetMarcAuthors( $record, $marcflavour ); |
Lines 101-106
foreach my $biblionumber ( @bibs ) {
Link Here
|
101 |
$dat->{MARCSERIES} = $marcseriesarray; |
102 |
$dat->{MARCSERIES} = $marcseriesarray; |
102 |
$dat->{MARCURLS} = $marcurlsarray; |
103 |
$dat->{MARCURLS} = $marcurlsarray; |
103 |
$dat->{HASAUTHORS} = $hasauthors; |
104 |
$dat->{HASAUTHORS} = $hasauthors; |
|
|
105 |
$dat->{HOSTITEMENTRIES} = $biblio->get_host_item_entries; |
104 |
|
106 |
|
105 |
if ( C4::Context->preference("IntranetBiblioDefaultView") eq "normal" ) { |
107 |
if ( C4::Context->preference("IntranetBiblioDefaultView") eq "normal" ) { |
106 |
$dat->{dest} = "/cgi-bin/koha/catalogue/detail.pl"; |
108 |
$dat->{dest} = "/cgi-bin/koha/catalogue/detail.pl"; |