|
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"; |