[open-ils-commits] r12939 - trunk/Open-ILS/src/perlmods/OpenILS/WWW (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2009-04-21 11:54:28 -0400 (Tue, 21 Apr 2009)
New Revision: 12939

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
Log:
force UTF-8 encoding of records when so requested (they already are UTF-8, just forcing the flag)

Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm	2009-04-21 15:44:31 UTC (rev 12938)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm	2009-04-21 15:54:28 UTC (rev 12939)
@@ -219,6 +219,7 @@
 
 			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(