From: dbs <dbs@6d9bc8c9-1ec2-4278-b937-99fde70a366f>
Date: Fri, 17 Apr 2009 03:39:15 +0000 (+0000)
Subject: Another preprocessing script takes shape...
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=fb2efa7e370d8d9254bfdb6691dd4a821713a348;p=contrib%2FConifer.git

Another preprocessing script takes shape...


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

diff --git a/tools/migration-scripts/fix_bad_marcxml.pl b/tools/migration-scripts/fix_bad_marcxml.pl
new file mode 100644
index 0000000000..9b202c6c44
--- /dev/null
+++ b/tools/migration-scripts/fix_bad_marcxml.pl
@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+foreach my $file (@ARGV) {
+	clean_empty_datafields($file);
+}
+
+sub clean_empty_datafields {
+	my $file = shift;
+
+	# Empty datafields anger MARC::File::XML
+	open(FH, '<', $file) or die $!;
+	open(CLEAN, '>', "$file.new");
+
+	my ($trim, $lastline) = (0, '');
+	while (<FH>) {
+		if ($_ =~ m#</datafield># and $lastline =~ m#<datafield#) {
+			$trim = 1;
+		} elsif ($trim) {
+			$trim = 0;
+		} else {
+			print CLEAN $lastline;
+			$trim = 0;
+		}
+		
+		$lastline = $_;
+	}
+	print CLEAN $lastline;
+
+	close(FH);
+	close(CLEAN);
+}