From be636a4769e2b8bda52644f2771495cb463633c9 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 23 Oct 2010 13:58:37 +0200
Subject: [PATCH 1/1] use save_marc

---
 COBISS.pm | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

diff --git a/COBISS.pm b/COBISS.pm
index 5611007..c324898 100644
--- a/COBISS.pm
+++ b/COBISS.pm
@@ -184,14 +184,7 @@ diag "fetch_marc $nr [$id] $format";
 			}
 		}
 
-		my $path = "marc/$id.$format";
-
-		open($out, '>:utf8', $path);
-		print $out $marc->as_usmarc;
-		close($out);
-
-		diag "created $path ", -s $path, " bytes";
-
+		$self->save_marc( $id, $marc->as_usmarc );
 		diag $marc->as_formatted;
 
 		$nr++;
-- 
2.20.1