add original record id in 001

diff --git a/crolist2marc.pl b/crolist2marc.pl
index 1819d46..49aa86a 100755 (executable)
--- a/crolist2marc.pl
+++ b/crolist2marc.pl
@@ -107,6 +107,8 @@ my $number = 0;
 foreach my $id ( @ids ) {
        my $rec = MARC::Record->new;
        $rec->encoding( 'UTF-8' );
 foreach my $id ( @ids ) {
        my $rec = MARC::Record->new;
        $rec->encoding( 'UTF-8' );

+       $rec->add_fields( [ '001', $id ] );
+

        foreach my $field ( sort keys %{ $data->{$id} } ) {
                if ( $field eq 'leader' ) {
                        $rec->leader( $data->{$id}->{$field} );
        foreach my $field ( sort keys %{ $data->{$id} } ) {
                if ( $field eq 'leader' ) {
                        $rec->leader( $data->{$id}->{$field} );