[open-ils-commits] r10283 - trunk/Open-ILS/src/extras/import

[svn at svn.open-ils.org]

Author: miker
Date: 2008-08-06 22:23:43 -0400 (Wed, 06 Aug 2008)
New Revision: 10283

Modified:
   trunk/Open-ILS/src/extras/import/marc2are.pl
   trunk/Open-ILS/src/extras/import/marc2bre.pl
Log:
use decomposed characters where possible, for the sake of JSON::XS

Modified: trunk/Open-ILS/src/extras/import/marc2are.pl
===================================================================
--- trunk/Open-ILS/src/extras/import/marc2are.pl	2008-08-06 22:05:28 UTC (rev 10282)
+++ trunk/Open-ILS/src/extras/import/marc2are.pl	2008-08-07 02:23:43 UTC (rev 10283)
@@ -69,7 +69,7 @@
 	$xml =~ s/^<\?xml.+\?\s*>//go;
 	$xml =~ s/>\s+</></go;
 	$xml =~ s/\p{Cc}//go;
-	$xml = entityize($xml);
+	$xml = entityize($xml,'D');
 	$xml =~ s/[\x00-\x1f]//go;
 
 	my $bib = new Fieldmapper::authority::record_entry;

Modified: trunk/Open-ILS/src/extras/import/marc2bre.pl
===================================================================
--- trunk/Open-ILS/src/extras/import/marc2bre.pl	2008-08-06 22:05:28 UTC (rev 10282)
+++ trunk/Open-ILS/src/extras/import/marc2bre.pl	2008-08-07 02:23:43 UTC (rev 10283)
@@ -187,7 +187,7 @@
 	$xml =~ s/^<\?xml.+\?\s*>//go;
 	$xml =~ s/>\s+</></go;
 	$xml =~ s/\p{Cc}//go;
-	$xml = entityize($xml);
+	$xml = entityize($xml,'D');
 	$xml =~ s/[\x00-\x1f]//go;
 
 	my $bib = new Fieldmapper::biblio::record_entry;