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

(-)a/C4/Biblio.pm (-1 / +1 lines)
Lines 1996-2001 sub TransformKohaToMarc { Link Here
1996
    my $db_to_marc = C4::Context->marcfromkohafield;
1996
    my $db_to_marc = C4::Context->marcfromkohafield;
1997
    while ( my ($name, $value) = each %$hash ) {
1997
    while ( my ($name, $value) = each %$hash ) {
1998
        next unless my $dtm = $db_to_marc->{''}->{$name};
1998
        next unless my $dtm = $db_to_marc->{''}->{$name};
1999
        next unless ( scalar( @$dtm ) );
1999
        my ($tag, $letter) = @$dtm;
2000
        my ($tag, $letter) = @$dtm;
2000
        foreach my $value ( split(/\s?\|\s?/, $value, -1) ) {
2001
        foreach my $value ( split(/\s?\|\s?/, $value, -1) ) {
2001
            if ( my $field = $record->field($tag) ) {
2002
            if ( my $field = $record->field($tag) ) {
2002
- 

Return to bug 7722