From: dbs <dbs@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 16 Apr 2010 15:02:46 +0000 (+0000)
Subject: Decode input, encode output. That's what Perl Unicode advice says, and it happens... 
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=5d5c67fabd108ab3fcad6f4fdaed145e4de5f675;p=Evergreen.git

Decode input, encode output. That's what Perl Unicode advice says, and it happens to fix a problem for Indiana.

Tested on Conifer production, no problems were introduced.


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

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
index 1279f37238..b5088d06c3 100644
--- a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
@@ -1708,7 +1708,8 @@ sub sru_search {
 					)
 				);
 
-				$marcxml = $marc->as_xml_record();
+				# Ensure the data is encoded as UTF8 before we hand it off
+				$marcxml = encode_utf8($marc->as_xml_record());
 				$marcxml =~ s/^<\?xml version="1.0" encoding="UTF-8"\?>//o;
 
 			}