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

(-)a/misc/migration_tools/bulkmarcimport.pl (-1 / +2 lines)
Lines 341-346 RECORD: while ( ) { Link Here
341
                            push @subfields, map { ( $_->[0] =~ /[a-z]/ ? $_->[1] : () ) } $field->subfields();
341
                            push @subfields, map { ( $_->[0] =~ /[a-z]/ ? $_->[1] : () ) } $field->subfields();
342
                        }
342
                        }
343
                        $yamlhash->{$originalid}->{'subfields'} = \@subfields;
343
                        $yamlhash->{$originalid}->{'subfields'} = \@subfields;
344
                        $yamlhash->{$originalid}->{'updated'} = 0;
344
                    }
345
                    }
345
                    next;
346
                    next;
346
                }
347
                }
Lines 424-429 RECORD: while ( ) { Link Here
424
                push @subfields, map { ( $_->[0] =~ /[a-z]/ ? $_->[1] : () ) } $field->subfields();
425
                push @subfields, map { ( $_->[0] =~ /[a-z]/ ? $_->[1] : () ) } $field->subfields();
425
            }
426
            }
426
            $yamlhash->{$originalid}->{'subfields'} = \@subfields;
427
            $yamlhash->{$originalid}->{'subfields'} = \@subfields;
428
            $yamlhash->{$originalid}->{'updated'} = 1;
427
            }
429
            }
428
        }
430
        }
429
        else {
431
        else {
430
- 

Return to bug 15214