use Try::Tiny qw( catch try );
use C4::Biblio qw(
- GetBiblioData
- GetMarcAuthors
GetMarcBiblio
GetMarcSubjects
);
foreach my $biblionumber (@bibs) {
$template2->param( biblionumber => $biblionumber );
- my $dat = GetBiblioData($biblionumber);
- next unless $dat;
+ my $biblio = Koha::Biblios->find( $biblionumber ) or next;
+ my $dat = $biblio->unblessed;
my $record = GetMarcBiblio({
biblionumber => $biblionumber,
embed_items => 1 });
- my $marcauthorsarray = GetMarcAuthors( $record, $marcflavour );
+ my $marcauthorsarray = $biblio->get_marc_authors;
my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
my @items = GetItemsInfo( $biblionumber );