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

(-)a/C4/ZebraIndex.pm (-2 / +1 lines)
Lines 381-387 sub _fix_unimarc_100 { Link Here
381
    my $marc = shift;
381
    my $marc = shift;
382
382
383
    my $string;
383
    my $string;
384
    my $string = $marc->subfield(100, 'a');
384
    $string = $marc->subfield(100, 'a');
385
    if ( defined($string) and length($string) == 36 ) {
385
    if ( defined($string) and length($string) == 36 ) {
386
        my $f100 = $marc->field(100);
386
        my $f100 = $marc->field(100);
387
        $marc->delete_field($f100);
387
        $marc->delete_field($f100);
388
- 

Return to bug 13705