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=afa15c0e4b5d301591c8defe24d3d323720e02b3;p=evergreen%2Fequinox.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 095a7ee749..8d0330a1ff 100644
--- a/Open-ILS/src/sql/Pg/012.schema.vandelay.sql
+++ b/Open-ILS/src/sql/Pg/012.schema.vandelay.sql
@@ -338,6 +338,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 );