@@ -, +, @@ --- misc/add_date_fields_to_marc_records.pl | 1 + 1 file changed, 1 insertion(+) --- a/misc/add_date_fields_to_marc_records.pl +++ a/misc/add_date_fields_to_marc_records.pl @@ -79,6 +79,7 @@ while ( my ( $biblionumber, $frameworkcode ) = $sth->fetchrow_array ) { next if $marc_record->subfield($tag, $subfield); } if ( $date_field ) { + @fields_to_add = (); my ( $tag, $subfield ) = split '\$', $date_field; my $date = $marc_record->subfield($tag, $subfield); next unless $date; --