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