OBRTAG.csv

[crolist2marc] / crolist2marc.pl

diff --git a/crolist2marc.pl b/crolist2marc.pl
index 803da79..1819d46 100755 (executable)
--- 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 );