added leader

[crolist2marc] / crolist2marc.pl

diff --git a/crolist2marc.pl b/crolist2marc.pl
index fdb5402..803da79 100755 (executable)
--- a/crolist2marc.pl
+++ b/crolist2marc.pl
@@ -23,7 +23,7 @@ sub csv_file {
                $lines++;
 
                if ( ! $text ) {
-                       print STDERR "\nSKIP $file +$lines [$_] ";
+                       print STDERR "\nSKIP $file +$lines [$_] " if $idsl;
                        next;
                }
 
@@ -69,6 +69,27 @@ csv_file( 'LONTAG.csv', sub {
        return ( $idsl, $tag, $tagno, $id, $sfi, $sfino, $text );
 });
 
+csv_file( 'IDNTAG.csv', sub {
+       my $line = shift;
+
+       my ( $idsl, $tag, $STSL, $KZVS, $BIBRAZ, $HIRAZ, $KPS, $OKO ) = split(/,/,$_);
+
+       my @leader;
+       $leader[5] = $STSL;
+       $leader[6] = $KZVS;
+       $leader[7] = $BIBRAZ;
+       $leader[8] = $HIRAZ;
+       $leader[17] = $KPS;
+       $leader[18] = $OKO;
+
+       $leader[23] = ' '; # last char;
+
+       my $full = join('', map { defined $_ ? $_ : ' ' } @leader);
+       $data->{$idsl}->{'leader'} = $full; 
+       return;
+});
+
+
 print STDERR "\n# getting all ids ";
 my @ids = keys %$data;
 print STDERR scalar(@ids), " found\n";
@@ -81,9 +102,13 @@ foreach my $id ( @ids ) {
        my $rec = MARC::Record->new;
        $rec->encoding( 'UTF-8' );
        foreach my $field ( sort keys %{ $data->{$id} } ) {
+               if ( $field eq 'leader' ) {
+                       $rec->leader( $data->{$id}->{$field} );
+                       next;
+               }
                foreach my $arr ( @{ $data->{$id}->{$field} } ) {
                        if ( ! $arr ) {
-                               print STDERR "SKIPPED $id $field ",dump( $data->{$id} );
+                               print STDERR "SKIPPED $id $field ",dump( $data->{$id}->{$field} );
                                next;
                        }
                        $rec->add_fields( $field, @$arr );