Bug 33431: Make C4::Record use C4::Context->yaml_preference

This patch makes what the title says.

To test:
1. Run:
   $ ktd --shell
  k$ prove t/db_dependent/Rec*
=> SUCCESS: Tests pass
2. Apply this patch
3. Repeat 1
=> SUCCESS: Tests pass!
4. Sign off :-D

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
Signed-off-by: David Nind <david@davidnind.com>
Signed-off-by: Pedro Amorim <pedro.amorim@ptfs-europe.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
Tomás Cohen Arazi 2023-04-06 10:55:41 -03:00 committed by Katrin Fischer
parent 814d4fd05b
commit 457c948ad0
Signed by: kfischer
GPG key ID: 0EF6E2C03357A834

View file

@ -794,16 +794,7 @@ sub marc2bibtex {
);
}
my $BibtexExportAdditionalFields = C4::Context->preference('BibtexExportAdditionalFields');
my $additional_fields;
if ($BibtexExportAdditionalFields) {
$BibtexExportAdditionalFields = "$BibtexExportAdditionalFields\n\n";
$additional_fields = eval { YAML::XS::Load(Encode::encode_utf8($BibtexExportAdditionalFields)); };
if ($@) {
warn "Unable to parse BibtexExportAdditionalFields : $@";
$additional_fields = undef;
}
}
my $additional_fields = C4::Context->yaml_preference('BibtexExportAdditionalFields');
if ( $additional_fields && $additional_fields->{'@'} ) {
my ( $f, $sf ) = split( /\$/, $additional_fields->{'@'} );