[open-ils-commits] r12985 - trunk/Open-ILS/src/extras/import (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2009-04-25 21:25:08 -0400 (Sat, 25 Apr 2009)
New Revision: 12985

Modified:
   trunk/Open-ILS/src/extras/import/marc2are.pl
   trunk/Open-ILS/src/extras/import/marc2bre.pl
Log:
Normalize to composed Unicode characters

Some browsers (like Firefox) do a better job of displaying composed Unicode characters


Modified: trunk/Open-ILS/src/extras/import/marc2are.pl
===================================================================
--- trunk/Open-ILS/src/extras/import/marc2are.pl	2009-04-26 01:22:57 UTC (rev 12984)
+++ trunk/Open-ILS/src/extras/import/marc2are.pl	2009-04-26 01:25:08 UTC (rev 12985)
@@ -69,7 +69,7 @@
 	$xml =~ s/^<\?xml.+\?\s*>//go;
 	$xml =~ s/>\s+</></go;
 	$xml =~ s/\p{Cc}//go;
-	$xml = OpenILS::Application::AppUtils->entityize($xml,'D');
+	$xml = OpenILS::Application::AppUtils->entityize($xml);
 	$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	2009-04-26 01:22:57 UTC (rev 12984)
+++ trunk/Open-ILS/src/extras/import/marc2bre.pl	2009-04-26 01:25:08 UTC (rev 12985)
@@ -199,10 +199,10 @@
 
 			# catch problem ids
 			if (!$id) {
-				warn "\n!!! Record $count has missing or invalid id field $id_field, assinging new id.\n";
+				warn "\n!!! Record $count has missing or invalid id field $id_field, assigning new id.\n";
 				$id = '';
 			} elsif (exists $used_recids{$id}) {
-				warn "\n!!! Record $count has a duplicate id in field $id_field, assinging new id.\n";
+				warn "\n!!! Record $count has a duplicate id in field $id_field, assigning new id.\n";
 				$id = '';
 			} else {
 				$used_recids{$id} = 1;
@@ -261,7 +261,7 @@
 	$xml =~ s/^<\?xml.+\?\s*>//go;
 	$xml =~ s/>\s+</></go;
 	$xml =~ s/\p{Cc}//go;
-	$xml = OpenILS::Application::AppUtils->entityize($xml,'D');
+	$xml = OpenILS::Application::AppUtils->entityize($xml);
 	$xml =~ s/[\x00-\x1f]//go;
 
 	my $bib = new Fieldmapper::biblio::record_entry;