View | Details | Raw Unified | Return to bug 10996
Collapse All | Expand All

(-)a/tools/export.pl (-14 / +16 lines)
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
- 

Return to bug 10996