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