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