Lines 491-497
sub add_matcher_list {
Link Here
|
491 |
sub get_infos_syspref { |
491 |
sub get_infos_syspref { |
492 |
my ($record, $field_list) = @_; |
492 |
my ($record, $field_list) = @_; |
493 |
my $syspref = C4::Context->preference('MarcFieldsToOrder'); |
493 |
my $syspref = C4::Context->preference('MarcFieldsToOrder'); |
494 |
my $yaml = YAML::Load($syspref); |
494 |
$syspref = "$syspref\n\n"; # YAML is anal on ending \n. Surplus does not hurt |
|
|
495 |
my $yaml = eval { |
496 |
YAML::Load($syspref); |
497 |
}; |
498 |
if ( $@ ) { |
499 |
warn "Unable to parse MarcFieldsToOrder syspref : $@"; |
500 |
return (); |
501 |
} |
495 |
my $r; |
502 |
my $r; |
496 |
for my $field_name ( @$field_list ) { |
503 |
for my $field_name ( @$field_list ) { |
497 |
my @fields = split /\|/, $yaml->{$field_name}; |
504 |
my @fields = split /\|/, $yaml->{$field_name}; |