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

(-)a/C4/Record.pm (-2 / +4 lines)
Lines 782-790 sub marc2bibtex { Link Here
782
        push @elt, qq|\t$bh[$i] = {$bh[$i+1]}|;
782
        push @elt, qq|\t$bh[$i] = {$bh[$i+1]}|;
783
    }
783
    }
784
    $tex .= join(",\n", $id, @elt);
784
    $tex .= join(",\n", $id, @elt);
785
    $tex .= "\n";
786
785
787
    if ($additional_fields) {
786
    if ($additional_fields) {
787
        $tex .= ",\n";
788
        foreach my $bibtex_tag ( keys %$additional_fields ) {
788
        foreach my $bibtex_tag ( keys %$additional_fields ) {
789
            next if $bibtex_tag eq '@';
789
            next if $bibtex_tag eq '@';
790
790
Lines 802-807 sub marc2bibtex { Link Here
802
            }
802
            }
803
        }
803
        }
804
    }
804
    }
805
    else {
806
        $tex .= "\n";
807
    }
805
808
806
    $tex .= "}\n";
809
    $tex .= "}\n";
807
810
808
- 

Return to bug 12357