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