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