From 29f88aced8b8c756435238816a842370c0e83ea4 Mon Sep 17 00:00:00 2001
From: Jared Camins-Esakov <jcamins@cpbibliography.com>
Date: Fri, 6 Jul 2012 07:05:27 -0400
Subject: [PATCH] Bug 8203 follow-up: fix MARCXML export for UNIMARC

Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
---
 authorities/export.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/authorities/export.pl b/authorities/export.pl
index c6b83491de..9c8ae17b8d 100755
--- 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);
-- 
2.39.5