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

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

Return to bug 33431