Forward-port r16250: Decode input, encode output. That's what Perl Unicode advice...

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 356908d..36809bc 100644 (file)
--- 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;
 
                        }