From c8e861fb0313a3068b983e6eeb9fe78931a15420 Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Tue, 4 Nov 2008 17:08:13 +0000
Subject: [PATCH] message and context message formatting changed

---
 marc-cleanup |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/marc-cleanup b/marc-cleanup
index 6cfd6f4..7b62dbb 100755
--- a/marc-cleanup
+++ b/marc-cleanup
@@ -264,7 +264,8 @@ sub write_record {
 
 sub message {
     my ($msg) = @_;
-    print $OUT "\r$msg at ",$conf->{ricount},"/",$conf->{rocount} + 1,"\n";
+    print $OUT "\r", ' ' x 72, "\n";
+    print $OUT "$msg at ",$conf->{ricount},"/",$conf->{rocount} + 1,"\n";
 
 }
 
@@ -321,7 +322,7 @@ sub dump_record {
 sub commit_edit { return 1 }
 
 sub print_context {
-    print "\n Tag:",$recmeta{tag}, " Ind1:'",
+    print " Tag:",$recmeta{tag}, " Ind1:'",
       $recmeta{ind1},"' Ind2:'", $recmeta{ind2}, "'";
     print_linecontext();
     return 0;
-- 
1.7.2.5