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( GetMarcBiblio 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");