From bb4ef63cb791b1f9ee046b5e15a829ff17b91ae4 Mon Sep 17 00:00:00 2001
From: dbs <dbs@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 16 Apr 2010 15:05:52 +0000
Subject: [PATCH] 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
---
Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
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;
}
--
2.11.0