create marc file

diff --git a/zavrsni-radovi/json2marc.pl b/zavrsni-radovi/json2marc.pl
index 7291b09..981d141 100755 (executable)
--- 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