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 |
- |
|
|