Always use BinaryEncodeing => "UTF-8" with MARC::File::XML

[evergreen-equinox.git] / Open-ILS / src / perlmods / lib / OpenILS / Application / Search / Z3950.pm

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Z3950.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Z3950.pm
index 18884c6..a5cd5ca 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Z3950.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Z3950.pm
@@ -4,7 +4,8 @@ use base qw/OpenILS::Application/;
 
 use OpenILS::Utils::ZClient;
 use MARC::Record;
-use MARC::File::XML;
+use MARC::File::XML (BinaryEncoding => 'UTF-8');
+use MARC::Charset;
 use Unicode::Normalize;
 use XML::LibXML;
 
@@ -16,6 +17,9 @@ use OpenILS::Application::AppUtils;
 use OpenSRF::Utils::Logger qw/$logger/;
 use OpenILS::Utils::CStoreEditor q/:funcs/;
 
+MARC::Charset->assume_unicode(1);
+MARC::Charset->ignore_errors(1);
+
 my $output = "usmarc"; 
 my $U = 'OpenILS::Application::AppUtils';