From 2c7609f123a02badfb61a45363c8fe3edefaaea6 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 12 Sep 2013 16:56:44 +0200
Subject: [PATCH] OBRTAG.csv

---
 crolist2marc.pl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/crolist2marc.pl b/crolist2marc.pl
index 803da79..1819d46 100755
--- a/crolist2marc.pl
+++ b/crolist2marc.pl
@@ -89,6 +89,12 @@ csv_file( 'IDNTAG.csv', sub {
 	return;
 });
 
+csv_file( 'OBRTAG.csv', sub {
+	my $line = shift;
+
+	my ( $IDSL, $TAG, $TAGNO, $ID, $SFI, $SFINO, $CODINF ) = split(/,/,$_);
+	return ( $IDSL, $TAG, $TAGNO, $ID, $SFI, $SFINO, $CODINF );
+});
 
 print STDERR "\n# getting all ids ";
 my @ids = keys %$data;
@@ -108,7 +114,7 @@ foreach my $id ( @ids ) {
 		}
 		foreach my $arr ( @{ $data->{$id}->{$field} } ) {
 			if ( ! $arr ) {
-				print STDERR "SKIPPED $id $field ",dump( $data->{$id}->{$field} );
+				print STDERR "SKIPPED $id $field ",dump( $data->{$id}->{$field} ), "\n";
 				next;
 			}
 			$rec->add_fields( $field, @$arr );
-- 
2.20.1