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

(-)a/misc/migration_tools/bulkmarcimport.pl (-1 / +2 lines)
Lines 294-299 RECORD: while ( ) { Link Here
294
                            push @subfields, map { ( $_->[0] =~ /[a-z]/ ? $_->[1] : () ) } $field->subfields();
294
                            push @subfields, map { ( $_->[0] =~ /[a-z]/ ? $_->[1] : () ) } $field->subfields();
295
                        }
295
                        }
296
                        $yamlhash->{$originalid}->{'subfields'} = \@subfields;
296
                        $yamlhash->{$originalid}->{'subfields'} = \@subfields;
297
                        $yamlhash->{$originalid}->{'updated'} = 0;
297
                    }
298
                    }
298
                    next;
299
                    next;
299
                }
300
                }
Lines 377-382 RECORD: while ( ) { Link Here
377
                push @subfields, map { ( $_->[0] =~ /[a-z]/ ? $_->[1] : () ) } $field->subfields();
378
                push @subfields, map { ( $_->[0] =~ /[a-z]/ ? $_->[1] : () ) } $field->subfields();
378
            }
379
            }
379
            $yamlhash->{$originalid}->{'subfields'} = \@subfields;
380
            $yamlhash->{$originalid}->{'subfields'} = \@subfields;
381
            $yamlhash->{$originalid}->{'updated'} = 1;
380
            }
382
            }
381
        }
383
        }
382
        else {
384
        else {
383
- 

Return to bug 15214