From a8d5b30b44aa816c1143b28feb7b25b875756254 Mon Sep 17 00:00:00 2001
From: dbs <dbs@6d9bc8c9-1ec2-4278-b937-99fde70a366f>
Date: Mon, 20 Apr 2009 01:06:36 +0000
Subject: [PATCH] One more bad subfield, and replace with obvious character for
 later investigation

git-svn-id: svn://svn.open-ils.org/ILS-Contrib/conifer/trunk@359 6d9bc8c9-1ec2-4278-b937-99fde70a366f
---
 tools/migration-scripts/fix_bad_marcxml.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/tools/migration-scripts/fix_bad_marcxml.pl b/tools/migration-scripts/fix_bad_marcxml.pl
index 44a0f9a0e3..0c6ad24c52 100644
--- a/tools/migration-scripts/fix_bad_marcxml.pl
+++ b/tools/migration-scripts/fix_bad_marcxml.pl
@@ -35,10 +35,13 @@ sub process_file {
 		# This will at least enable MARC::File::XML to process it:
 		if ($_ =~ m#<subfield code=""">#o) {
 			print STDERR "Bad subfield code \" at line $lineno of file $file\n";
-			$_ =~ s{<subfield code=""">}{<subfield code="a">}o;
+			$_ =~ s{<subfield code=""">}{<subfield code="Z">}o;
 		} elsif ($_ =~ m#<subfield code="<">#o) {
 			print STDERR "Bad subfield code < at line $lineno of file $file\n";
-			$_ =~ s{<subfield code="<">}{<subfield code="a">}o;
+			$_ =~ s{<subfield code="<">}{<subfield code="Z">}o;
+		} elsif ($_ =~ m#<subfield code="&">#o) {
+			print STDERR "Bad subfield code & at line $lineno of file $file\n";
+			$_ =~ s{<subfield code="&">}{<subfield code="Z">}o;
 		}
 		
 		$lastline = $_;
-- 
2.11.0