From 212ecfb5331c7f758dba9f4394467a89b9f5ede8 Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Fri, 26 Sep 2008 17:08:39 +0000
Subject: [PATCH] annotated record dumps added

---
 marc-cleanup |    4 ++++
 1 files changed, 4 insertions(+), 0 deletions(-)

diff --git a/marc-cleanup b/marc-cleanup
index caa8647..e5dbe4c 100755
--- a/marc-cleanup
+++ b/marc-cleanup
@@ -171,6 +171,8 @@ sub getline {
 sub write_record {
     my ($FH) = @_;
     print $FH '<collection xmlns="http://www.loc.gov/MARC21/slim">',"\n";
+    print $FH '<!-- ', $reccontext{explanation}, " -->\n"
+      if(defined $reccontext{explanation});
     print $FH @record;
     print $FH "</collection>\n";
 }
@@ -220,6 +222,8 @@ sub kill_line {
 }
 
 sub dump_record {
+    my ($line_in, @explanation) = @_;
+    $reccontext{explanation} = join(' ', @explanation);
     my $line = <MARC>; $count++;
     update_linecontext();
     until ($line =~ m|</record>|) {
-- 
1.7.2.5