From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 7 Aug 2008 02:23:43 +0000 (+0000)
Subject: use decomposed characters where possible, for the sake of JSON::XS
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=fe6e0af7527404abfd494363e5a8c4c88e440e67;p=Evergreen.git

use decomposed characters where possible, for the sake of JSON::XS

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

diff --git a/Open-ILS/src/extras/import/marc2are.pl b/Open-ILS/src/extras/import/marc2are.pl
index 6ae28e261f..401a5dbf32 100755
--- a/Open-ILS/src/extras/import/marc2are.pl
+++ b/Open-ILS/src/extras/import/marc2are.pl
@@ -69,7 +69,7 @@ while ( try { $rec = $batch->next } otherwise { $rec = -1 } ) {
 	$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;
diff --git a/Open-ILS/src/extras/import/marc2bre.pl b/Open-ILS/src/extras/import/marc2bre.pl
index 1d958b7e95..4187d6b51d 100755
--- a/Open-ILS/src/extras/import/marc2bre.pl
+++ b/Open-ILS/src/extras/import/marc2bre.pl
@@ -187,7 +187,7 @@ while ( try { $rec = $batch->next } otherwise { $rec = -1 } ) {
 	$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;