Lines 358-376
if ( $op eq "export" ) {
Link Here
|
358 |
} |
358 |
} |
359 |
|
359 |
|
360 |
if ($export_remove_fields) { |
360 |
if ($export_remove_fields) { |
361 |
my @fields = split " ", $export_remove_fields; |
361 |
for my $f ( split / /, $export_remove_fields ) { |
362 |
foreach (@fields) { |
362 |
if ( $f =~ m/^(\d{3})(.)?$/ ) { |
363 |
/^(\d*)(\w)?$/; |
363 |
my ( $field, $subfield ) = ( $1, $2 ); |
364 |
my $field = $1; |
364 |
|
365 |
my $subfield = $2; |
365 |
# skip if this record doesn't have this field |
366 |
|
366 |
if ( defined $record->field($field) ) { |
367 |
# skip if this record doesn't have this field |
367 |
if ( defined $subfield ) { |
368 |
next if not defined $record->field($field); |
368 |
my @tags = $record->field($field); |
369 |
if ($subfield) { |
369 |
foreach my $t (@tags) { |
370 |
$record->field($field)->delete_subfields($subfield); |
370 |
$t->delete_subfields($subfield); |
371 |
} |
371 |
} |
372 |
else { |
372 |
} |
373 |
$record->delete_field( $record->field($field) ); |
373 |
else { |
|
|
374 |
$record->delete_fields($field); |
375 |
} |
376 |
} |
374 |
} |
377 |
} |
375 |
} |
378 |
} |
376 |
} |
379 |
} |
377 |
- |
|
|