From: dbs <dbs@6d9bc8c9-1ec2-4278-b937-99fde70a366f>
Date: Tue, 21 Apr 2009 04:22:03 +0000 (+0000)
Subject: Windsor's MARC has one consistent flaw, apparently
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=4d3411a343f9190b8437ef2a1d0503f92b0cba17;p=contrib%2FConifer.git

Windsor's MARC has one consistent flaw, apparently


git-svn-id: svn://svn.open-ils.org/ILS-Contrib/conifer/trunk@372 6d9bc8c9-1ec2-4278-b937-99fde70a366f
---

diff --git a/tools/migration-scripts/fix_bad_marcxml.pl b/tools/migration-scripts/fix_bad_marcxml.pl
index 0c6ad24c52..dd9282b5c1 100644
--- a/tools/migration-scripts/fix_bad_marcxml.pl
+++ b/tools/migration-scripts/fix_bad_marcxml.pl
@@ -42,6 +42,9 @@ sub process_file {
 		} elsif ($_ =~ m#<subfield code="&">#o) {
 			print STDERR "Bad subfield code & at line $lineno of file $file\n";
 			$_ =~ s{<subfield code="&">}{<subfield code="Z">}o;
+		} elsif ($_ =~ m#<datafield tag="6" ind1=".">#o) {
+			print STDERR "Bad datafield tag 6 at line $lineno of file $file\n";
+			$_ =~ s{<datafield tag="6" ind1=".">}{<datafield tag="600" ind1=" ">}o;
 		}
 		
 		$lastline = $_;