From 66bded690ce4d9ea1aef97ed11c3c0868147b7fa 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
Content-Type: text/plain; charset="UTF-8"

---
 authorities/export.pl |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/authorities/export.pl b/authorities/export.pl
index c6b8349..9c8ae17 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);
-- 
1.7.2.5