diff --git a/eprints1.pl b/eprints1.pl index 771df7fcd014c6e9586049485e1edb9df5b79be0..2604c9276ecc5da7d12d3cdbdf2b5c2726cb25a4 100755 --- a/eprints1.pl +++ b/eprints1.pl @@ -5653,6 +5653,15 @@ sub export_migration_data # print __LINE__, " mrd: ", Dumper($mrd); my ($df_urn, $val_urn, $df_doi, $val_doi, $df_othes, $val_othes, $df_utheses, $val_utheses); + + foreach my $cf (@{$mrd->{controlfield}}) + { + if ($cf->{tag} eq '005') + { + $rec->{ts_marc}= $cf->{content}; + } + } + foreach my $df (@{$mrd->{datafield}}) { foreach my $sf (@{$df->{subfield}}) @@ -5724,7 +5733,7 @@ sub export_migration_data my @tsv_columns= qw( eprint_id eprint_status lastmod urn doi ac_nummer bucket_code utheses_id ts_upload upload_status - ac_number mms_id fetched lib_code marc_record ts_fetched + ac_number mms_id fetched lib_code marc_record ts_fetched ts_marc df_urn val_urn df_doi val_doi df_othes val_othes df_utheses val_utheses );