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

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

Return to bug 10996