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

(-)a/C4/Record.pm (-11 / +1 lines)
Lines 786-801 sub marc2bibtex { Link Here
786
        );
786
        );
787
    }
787
    }
788
788
789
    my $BibtexExportAdditionalFields = C4::Context->preference('BibtexExportAdditionalFields');
789
    my $additional_fields = C4::Context->yaml_preference('BibtexExportAdditionalFields');
790
    my $additional_fields;
791
    if ($BibtexExportAdditionalFields) {
792
        $BibtexExportAdditionalFields = "$BibtexExportAdditionalFields\n\n";
793
        $additional_fields = eval { YAML::XS::Load(Encode::encode_utf8($BibtexExportAdditionalFields)); };
794
        if ($@) {
795
            warn "Unable to parse BibtexExportAdditionalFields : $@";
796
            $additional_fields = undef;
797
        }
798
    }
799
790
800
    if ( $additional_fields && $additional_fields->{'@'} ) {
791
    if ( $additional_fields && $additional_fields->{'@'} ) {
801
        my ( $f, $sf ) = split( /\$/, $additional_fields->{'@'} );
792
        my ( $f, $sf ) = split( /\$/, $additional_fields->{'@'} );
802
- 

Return to bug 33431