From 065b545d3e1ad5ab06205ce8205d49b7dc632610 Mon Sep 17 00:00:00 2001 From: Mike Rylander Date: Tue, 3 May 2011 20:06:46 -0400 Subject: [PATCH] Add MARC::Charset dance to the remaining plperlu function --- Open-ILS/src/sql/Pg/012.schema.vandelay.sql | 4 ++++ 1 file changed, 4 insertions(+) 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 ); -- 2.11.0