use C4::Auth;
use C4::Output;
use C4::AuthoritiesMarc;
-use CGI;
+use CGI qw ( -utf8 );
my $query = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
query => $query,
type => "intranet",
authnotrequired => 0,
- flagsrequired => { editauthorities => 1 },
+ flagsrequired => { catalogue => 1 },
debug => 1,
}
);
my $marc = GetAuthority($authid);
if ( $format =~ /marcxml/ ) {
- $marc = marc2marcxml($marc);
+ $marc = marc2marcxml($marc, 'UTF-8', C4::Context->preference("marcflavour") eq 'UNIMARC' ? 'UNIMARCAUTH' : 'MARC21' );
}
elsif ($format=~ /mads/) {
$marc = marc2madsxml($marc);