use Modern::Perl;
use C4::Record;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Output;
-use C4::Biblio;
+use C4::Biblio qw( GetMarcControlnumber );
use CGI qw ( -utf8 );
-use C4::Ris;
+use C4::Ris qw( marc2ris );
query => $query,
type => "intranet",
flagsrequired => { catalogue => 1 },
- debug => 1,
});
my $op=$query->param("op");
my $file_id = $biblionumber;
my $file_pre = "bib-";
- my $marc = GetMarcBiblio({
- biblionumber => $biblionumber,
- embed_items => 1 });
+ my $biblio = Koha::Biblios->find($biblionumber);
+ my $marc = $biblio->metadata->record({ embed_items => 1 });
if( C4::Context->preference('DefaultSaveRecordFileID') eq 'controlnumber' ){
my $marcflavour = C4::Context->preference('marcflavour'); #FIXME This option is required but does not change control num behaviour