From: Shawn Boyette <sboyette@esilibrary.com>
Date: Thu, 18 Dec 2008 18:58:57 +0000 (+0000)
Subject: irrelevant
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=2367aa023d833266bb1cf4c129b91e57435129dc

irrelevant
---

diff --git a/make1per b/make1per
deleted file mode 100755
index 80c25c3..0000000
--- a/make1per
+++ /dev/null
@@ -1,22 +0,0 @@
-#!/usr/bin/perl
-
-my $infile = $ARGV[0] || 'incoming.renumbered.mrc.xml';
-my $outfile = $ARGV[1] || $infile . '.1per.xml';
-
-open IN, '<', $infile;
-open OUT,'>', $outfile;
-
-$seenrec  = 0;
-$stripcol = 0;
-
-while (<IN>) {
-  unless ($seenrec)
-    { $seenrec = 1 if /^<record/ }
-  print OUT unless $seenrec;
-  if (m|^</collection|) {
-    while (<IN>)
-      { last if /^\n$/ }
-  }
-  s/\n// unless m|^</record|;
-  print OUT;
-}