Bug 8203 follow-up: fix MARCXML export for UNIMARC

Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>

diff --git a/authorities/export.pl b/authorities/export.pl
index c6b8349..9c8ae17 100755 (executable)
--- a/authorities/export.pl
+++ b/authorities/export.pl
@@ -30,7 +30,7 @@ if ( $op eq "export" ) {
         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);