From d5b4f4a9ee99dda4dc26a4189db454ea54508a69 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Thu, 6 Nov 2003 15:14:57 +0000
Subject: [PATCH] removes warning

---
 export/marc.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/export/marc.pl b/export/marc.pl
index 9b916bc925..556db7a6cb 100755
--- a/export/marc.pl
+++ b/export/marc.pl
@@ -24,9 +24,8 @@ if ($op eq "export") {
 	my $sth=$dbh->prepare($query);
 	$sth->execute;
 	while (my ($bibid) = $sth->fetchrow) {
-		warn "getting : $bibid";
 		my $record = MARCgetbiblio($dbh,$bibid);
-		warn $record->as_formatted();
+
 		print $record->as_usmarc();
 	}
 } else {
-- 
2.39.2