From: dbs <dbs@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 16 Apr 2010 15:05:52 +0000 (+0000)
Subject: Forward-port r16250: Decode input, encode output. That's what Perl Unicode advice... 
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=bb4ef63cb791b1f9ee046b5e15a829ff17b91ae4;p=evergreen%2Ftadl.git

Forward-port r16250: 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/trunk@16252 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 356908debb..36809bc897 100644
--- a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
@@ -1791,7 +1791,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;
 
 			}