removes warning

diff --git a/export/marc.pl b/export/marc.pl
index 9b916bc..556db7a 100755 (executable)
--- 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 {