From 2367aa023d833266bb1cf4c129b91e57435129dc Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Thu, 18 Dec 2008 18:58:57 +0000
Subject: [PATCH] irrelevant

---
 make1per |   22 ----------------------
 1 files changed, 0 insertions(+), 22 deletions(-)
 delete mode 100755 make1per

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;
-}
-- 
1.7.2.5