From: Mike Rylander <mrylander@gmail.com>
Date: Wed, 4 May 2011 00:06:46 +0000 (-0400)
Subject: Add MARC::Charset dance to the remaining plperlu function
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=065b545d3e1ad5ab06205ce8205d49b7dc632610;p=evergreen%2Fmasslnc.git

Add MARC::Charset dance to the remaining plperlu function
---

diff --git a/Open-ILS/src/sql/Pg/012.schema.vandelay.sql b/Open-ILS/src/sql/Pg/012.schema.vandelay.sql
index c5740d738a..e639998632 100644
--- a/Open-ILS/src/sql/Pg/012.schema.vandelay.sql
+++ b/Open-ILS/src/sql/Pg/012.schema.vandelay.sql
@@ -321,6 +321,10 @@ CREATE OR REPLACE FUNCTION vandelay.flay_marc ( TEXT ) RETURNS SETOF vandelay.fl
 
 use MARC::Record;
 use MARC::File::XML (BinaryEncoding => 'UTF-8');
+use MARC::Charset;
+use strict;
+
+MARC::Charset->assume_unicode(1);
 
 my $xml = shift;
 my $r = MARC::Record->new_from_xml( $xml );