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

[evergreen-equinox.git] / Open-ILS / src / support-scripts / authority_control_fields.pl.in

diff --git a/Open-ILS/src/support-scripts/authority_control_fields.pl.in b/Open-ILS/src/support-scripts/authority_control_fields.pl.in
index 07c9f77..ad3cfde 100755 (executable)
--- a/Open-ILS/src/support-scripts/authority_control_fields.pl.in
+++ b/Open-ILS/src/support-scripts/authority_control_fields.pl.in
@@ -19,6 +19,7 @@ use DBI;
 use Getopt::Long;
 use MARC::Record;
 use MARC::File::XML (BinaryEncoding => 'UTF-8');
+use MARC::Charset;
 use OpenSRF::System;
 use OpenILS::Utils::Fieldmapper;
 use OpenSRF::Utils::SettingsClient;
@@ -29,6 +30,8 @@ use OpenILS::Application::AppUtils;
 use Data::Dumper;
 use Pod::Usage qw/ pod2usage /;
 
+MARC::Charset->assume_unicode(1);
+
 my ($start_id, $end_id);
 my $bootstrap = '@sysconfdir@/opensrf_core.xml';
 my @records;