@@ -, +, @@ --- tools/export.pl | 24 +++++++++++++----------- 1 file changed, 13 insertions(+), 11 deletions(-) --- a/tools/export.pl +++ a/tools/export.pl @@ -360,17 +360,19 @@ if ( $op eq "export" ) { if ($export_remove_fields) { my @fields = split " ", $export_remove_fields; foreach (@fields) { - /^(\d*)(\w)?$/; - my $field = $1; - my $subfield = $2; - - # skip if this record doesn't have this field - next if not defined $record->field($field); - if ($subfield) { - $record->field($field)->delete_subfields($subfield); - } - else { - $record->delete_field( $record->field($field) ); + if (/^(\d{3})(.)?$/) { + my $field = $1; + my $subfield = $2; + + # skip if this record doesn't have this field + next if not defined $record->field($field); + if ($subfield) { + $record->field($field) + ->delete_subfields($subfield); + } + else { + $record->delete_field( $record->field($field) ); + } } } } --