|
Lines 20-26
use Modern::Perl;
Link Here
|
| 20 |
use CGI qw ( -utf8 ); |
20 |
use CGI qw ( -utf8 ); |
| 21 |
use C4::Koha; |
21 |
use C4::Koha; |
| 22 |
use C4::Biblio qw( |
22 |
use C4::Biblio qw( |
| 23 |
GetBiblioData |
|
|
| 24 |
GetMarcBiblio |
23 |
GetMarcBiblio |
| 25 |
GetMarcSeries |
24 |
GetMarcSeries |
| 26 |
GetMarcSubjects |
25 |
GetMarcSubjects |
|
Lines 66-74
if (C4::Context->preference('TagsEnabled')) {
Link Here
|
| 66 |
foreach my $biblionumber ( @bibs ) { |
65 |
foreach my $biblionumber ( @bibs ) { |
| 67 |
$template->param( biblionumber => $biblionumber ); |
66 |
$template->param( biblionumber => $biblionumber ); |
| 68 |
|
67 |
|
| 69 |
my $dat = &GetBiblioData($biblionumber); |
68 |
my $biblio = Koha::Biblios->find( $biblionumber ) or next; |
| 70 |
next unless $dat; |
69 |
my $dat = $biblio->unblessed; |
| 71 |
my $biblio = Koha::Biblios->find( $biblionumber ); |
|
|
| 72 |
my $record = &GetMarcBiblio({ biblionumber => $biblionumber }); |
70 |
my $record = &GetMarcBiblio({ biblionumber => $biblionumber }); |
| 73 |
my $marcnotesarray = $biblio->get_marc_notes({ marcflavour => $marcflavour }); |
71 |
my $marcnotesarray = $biblio->get_marc_notes({ marcflavour => $marcflavour }); |
| 74 |
my $marcauthorsarray = $biblio->get_marc_authors; |
72 |
my $marcauthorsarray = $biblio->get_marc_authors; |