use decomposed characters where possible, for the sake of JSON::XS
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 7 Aug 2008 02:23:43 +0000 (02:23 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 7 Aug 2008 02:23:43 +0000 (02:23 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@10283 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/extras/import/marc2are.pl
Open-ILS/src/extras/import/marc2bre.pl

index 6ae28e2..401a5db 100755 (executable)
@@ -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;
index 1d958b7..4187d6b 100755 (executable)
@@ -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;