|
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 |
- |
|
|