From a85d6e46e94b5d3290d9f9fff09b9d68c7c1878f Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 23 Jan 2016 13:53:00 +0100
Subject: [PATCH] create marc file

---
 zavrsni-radovi/json2marc.pl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/zavrsni-radovi/json2marc.pl b/zavrsni-radovi/json2marc.pl
index 7291b09..981d141 100755
--- a/zavrsni-radovi/json2marc.pl
+++ b/zavrsni-radovi/json2marc.pl
@@ -18,6 +18,8 @@ open(my $json, '<', 'report_62836_1046_ZavrsniRadovi.json');
 }
 #warn dump($json->[0]);
 
+open(my $marc_fh, '>', 'radovi.marc');
+
 my $stat;
 
 foreach my $rad ( @$json ) {
@@ -52,6 +54,8 @@ foreach my $rad ( @$json ) {
 		$rad->{prezmentor2} ? [ '700', '1', '#', a => $rad->{prezmentor2} . ', ' . $rad->{imementor2}, 4 => 'ths' ] : ''
 	);
 
+	print $marc_fh $marc->as_usmarc;
+
 	print $marc->as_formatted, "\n\n"; # FIXME
 
 #	last if $stat->{radova} == 10; # FIXME
-- 
2.20.1