=cut
-use strict;
-#use warnings; FIXME - Bug 2505
+use Modern::Perl;
use CGI qw ( -utf8 );
use HTML::Entities;
}
);
-my $record = GetMarcBiblio($biblionumber, 1);
+my $record = GetMarcBiblio({
+ biblionumber => $biblionumber,
+ embed_items => 1 });
$template->param( ocoins => GetCOinSBiblio($record) );
if ( not defined $record ) {