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

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

Return to bug 33431