From 7b2e175f2e9add6bc62577b9e218921beec014a0 Mon Sep 17 00:00:00 2001
From: Galen Charlton <galen.charlton@liblime.com>
Date: Sat, 16 Feb 2008 15:01:10 +1300
Subject: [PATCH] DC XML export - declare encoding

Signed-off-by: Chris Cormack <chris@bigballofwax.co.nz>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 C4/Record.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C4/Record.pm b/C4/Record.pm
index 63bba6deb0..0324d03a40 100644
--- a/C4/Record.pm
+++ b/C4/Record.pm
@@ -248,7 +248,7 @@ sub marc2dcxml {
 		$crosswalk = MARC::Crosswalk::DublinCore->new( qualified => 1 );
 	}
 	my $dcxml = $crosswalk->as_dublincore($marc_record_obj);
-	my $dcxmlfinal = "<?xml version=\"1.0\"?>\n";
+	my $dcxmlfinal = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
 	$dcxmlfinal .= "<metadata
   xmlns=\"http://example.org/myapp/\"
   xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\"
-- 
2.39.5