X-Git-Url: http://git.rot13.org/?p=ferlib2koha.git;a=blobdiff_plain;f=zavrsni-radovi%2Fjson2marc.pl;h=981d1412c529963671b4b1905b20daf804d827a1;hp=7291b09f9b22034cce0ee833c73ccca58e6af184;hb=a85d6e46e94b5d3290d9f9fff09b9d68c7c1878f;hpb=4dfbadf0b3c5db6c493c947cc1b4a795fb2440de

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