From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 21 Apr 2009 15:54:28 +0000 (+0000)
Subject: force UTF-8 encoding of records when so requested (they already are UTF-8, just forci... 
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=101f65be440ff6bd42983a991d2e489b8182a8e9;p=evergreen%2Fmasslnc.git

force UTF-8 encoding of records when so requested (they already are UTF-8, just forcing the flag)

git-svn-id: svn://svn.open-ils.org/ILS/trunk@12939 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
index 6de6e1461c..4374b66d04 100644
--- a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
@@ -219,6 +219,7 @@ sub handler {
 
 			my $req = MARC::Record->new_from_xml( $bib->marc, $encoding, $format );
 			$req->delete_field( $_ ) for ($req->field(901));
+			$req->encoding($encoding) if ($encoding eq 'UTF-8');
 
 			$req->append_fields(
 				MARC::Field->new(