[open-ils-commits] r16250 - branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/WWW (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2010-04-16 11:02:46 -0400 (Fri, 16 Apr 2010)
New Revision: 16250

Modified:
   branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
Log:
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.


Modified: branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
===================================================================
--- branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2010-04-16 14:34:30 UTC (rev 16249)
+++ branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2010-04-16 15:02:46 UTC (rev 16250)
@@ -1708,7 +1708,8 @@
 					)
 				);
 
-				$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;
 
 			}