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

(-)a/C4/Biblio.pm (-3 / +3 lines)
Lines 2194-2202 sub TransformKohaToMarc { Link Here
2194
    while ( my ($name, $value) = each %$hash ) {
2194
    while ( my ($name, $value) = each %$hash ) {
2195
        next unless my $dtm = $db_to_marc->{''}->{$name};
2195
        next unless my $dtm = $db_to_marc->{''}->{$name};
2196
        next unless ( scalar( @$dtm ) );
2196
        next unless ( scalar( @$dtm ) );
2197
        my ($tag, $letter) = @$dtm; $tag .= '';
2197
        my ($tag, $letter) = @$dtm;
2198
        $tag .= '';
2198
        foreach my $value ( split(/\s?\|\s?/, $value, -1) ) {
2199
        foreach my $value ( split(/\s?\|\s?/, $value, -1) ) {
2199
            $value eq '' && next;
2200
            next if $value eq '';
2200
            $tag_hr->{$tag} //= [];
2201
            $tag_hr->{$tag} //= [];
2201
            push @{$tag_hr->{$tag}}, [($letter, $value)];
2202
            push @{$tag_hr->{$tag}}, [($letter, $value)];
2202
        }
2203
        }
2203
- 

Return to bug 12343