Avoid data loss by setting MARC::Charset->assume_unicode(1)

[evergreen-equinox.git] / Open-ILS / src / sql / Pg / 020.schema.functions.sql

diff --git a/Open-ILS/src/sql/Pg/020.schema.functions.sql b/Open-ILS/src/sql/Pg/020.schema.functions.sql
index f7c43c5..981a364 100644 (file)
--- a/Open-ILS/src/sql/Pg/020.schema.functions.sql
+++ b/Open-ILS/src/sql/Pg/020.schema.functions.sql
@@ -338,8 +338,11 @@ CREATE OR REPLACE FUNCTION authority.normalize_heading( TEXT ) RETURNS TEXT AS $
     use utf8;
     use MARC::Record;
     use MARC::File::XML (BinaryEncoding => 'UTF8');
+    use MARC::Charset;
     use UUID::Tiny ':std';
 
+    MARC::Charset->assume_unicode(1);
+
     my $xml = shift() or return undef;
 
     my $r;