Lines 17-22
package Koha::Acquisition::Utils;
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
|
|
20 |
use YAML::XS; |
21 |
|
20 |
use C4::Context; |
22 |
use C4::Context; |
21 |
|
23 |
|
22 |
=head1 NAME |
24 |
=head1 NAME |
Lines 43-49
sub GetMarcFieldsToOrderValues {
Link Here
|
43 |
my $syspref = C4::Context->preference('MarcFieldsToOrder'); |
45 |
my $syspref = C4::Context->preference('MarcFieldsToOrder'); |
44 |
$syspref = "$syspref\n\n"; # YAML is anal on ending \n. Surplus does not hurt |
46 |
$syspref = "$syspref\n\n"; # YAML is anal on ending \n. Surplus does not hurt |
45 |
my $yaml = eval { |
47 |
my $yaml = eval { |
46 |
YAML::Load($syspref); |
48 |
YAML::XS::Load($syspref); |
47 |
}; |
49 |
}; |
48 |
if ( $@ ) { |
50 |
if ( $@ ) { |
49 |
warn "Unable to parse $syspref syspref : $@"; |
51 |
warn "Unable to parse $syspref syspref : $@"; |
Lines 87-93
sub GetMarcItemFieldsToOrderValues {
Link Here
|
87 |
my $syspref = C4::Context->preference('MarcItemFieldsToOrder'); |
89 |
my $syspref = C4::Context->preference('MarcItemFieldsToOrder'); |
88 |
$syspref = "$syspref\n\n"; # YAML is anal on ending \n. Surplus does not hurt |
90 |
$syspref = "$syspref\n\n"; # YAML is anal on ending \n. Surplus does not hurt |
89 |
my $yaml = eval { |
91 |
my $yaml = eval { |
90 |
YAML::Load($syspref); |
92 |
YAML::XS::Load($syspref); |
91 |
}; |
93 |
}; |
92 |
if ( $@ ) { |
94 |
if ( $@ ) { |
93 |
warn "Unable to parse $syspref syspref : $@"; |
95 |
warn "Unable to parse $syspref syspref : $@"; |
94 |
- |
|
|