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

(-)a/C4/Biblio.pm (-3 / +3 lines)
Lines 2422-2430 sub TransformMarcToKohaOneField { Link Here
2422
        my $sub = $fldhash->{tagsubfield};
2422
        my $sub = $fldhash->{tagsubfield};
2423
        foreach my $fld ( $marc->field($tag) ) {
2423
        foreach my $fld ( $marc->field($tag) ) {
2424
            if( $sub eq '@' || $fld->is_control_field ) {
2424
            if( $sub eq '@' || $fld->is_control_field ) {
2425
                push @rv, $fld->data if $fld->data;
2425
                my $data = $fld->data;
2426
                push @rv, $data if defined $data && $data ne '';
2426
            } else {
2427
            } else {
2427
                push @rv, grep { $_ } $fld->subfield($sub);
2428
                push @rv, grep { defined $_ && $_ ne '' } $fld->subfield($sub);
2428
            }
2429
            }
2429
        }
2430
        }
2430
    }
2431
    }
2431
- 

Return to bug 28384