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