force UTF-8 encoding of records when so requested (they already are UTF-8, just forci...

git-svn-id: svn://svn.open-ils.org/ILS/trunk@12939 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
index 6de6e14..4374b66 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
@@ -219,6 +219,7 @@ sub handler {
 
                        my $req = MARC::Record->new_from_xml( $bib->marc, $encoding, $format );
                        $req->delete_field( $_ ) for ($req->field(901));
+                       $req->encoding($encoding) if ($encoding eq 'UTF-8');
 
                        $req->append_fields(
                                MARC::Field->new(