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