brown-bag-bug-fix: writing MARC file just once (at end) will save a lot of time

git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@229 13eb9ef6-21d5-0310-b721-a9d68796d827

diff --git a/tools/isis2marc.pl b/tools/isis2marc.pl
index 216720f..1b7d2a1 100755 (executable)
--- a/tools/isis2marc.pl
+++ b/tools/isis2marc.pl
@@ -98,6 +98,6 @@ foreach my $db_file (@ARGV) {
        }
        $total += $new;
        printf "\t%d (%0.2f%%) t: %d\n",$new,($new*100/$maxmfn),$total;
-       $marc->output({file=>"> $marc_file",'format'=>"usmarc"})
 }
 
+$marc->output({file=>"> $marc_file",'format'=>"usmarc"})