Lines 23-29
Link Here
|
23 |
|
23 |
|
24 |
use Modern::Perl; |
24 |
use Modern::Perl; |
25 |
use CGI qw ( -utf8 ); |
25 |
use CGI qw ( -utf8 ); |
26 |
use YAML::XS; |
|
|
27 |
use List::MoreUtils; |
26 |
use List::MoreUtils; |
28 |
use Encode; |
27 |
use Encode; |
29 |
|
28 |
|
Lines 651-665
sub add_matcher_list {
Link Here
|
651 |
|
650 |
|
652 |
sub get_infos_syspref { |
651 |
sub get_infos_syspref { |
653 |
my ($syspref_name, $record, $field_list) = @_; |
652 |
my ($syspref_name, $record, $field_list) = @_; |
654 |
my $syspref = C4::Context->preference($syspref_name); |
653 |
my $yaml = C4::Context->yaml_preference($syspref_name); |
655 |
$syspref = "$syspref\n\n"; # YAML is anal on ending \n. Surplus does not hurt |
|
|
656 |
my $yaml = eval { |
657 |
YAML::XS::Load(Encode::encode_utf8($syspref)); |
658 |
}; |
659 |
if ( $@ ) { |
660 |
warn "Unable to parse $syspref syspref : $@"; |
661 |
return (); |
662 |
} |
663 |
my $r; |
654 |
my $r; |
664 |
for my $field_name ( @$field_list ) { |
655 |
for my $field_name ( @$field_list ) { |
665 |
next unless exists $yaml->{$field_name}; |
656 |
next unless exists $yaml->{$field_name}; |
Lines 697-711
sub equal_number_of_fields {
Link Here
|
697 |
|
688 |
|
698 |
sub get_infos_syspref_on_item { |
689 |
sub get_infos_syspref_on_item { |
699 |
my ($syspref_name, $record, $field_list) = @_; |
690 |
my ($syspref_name, $record, $field_list) = @_; |
700 |
my $syspref = C4::Context->preference($syspref_name); |
691 |
my $yaml = C4::Context->yaml_preference($syspref_name); |
701 |
$syspref = "$syspref\n\n"; # YAML is anal on ending \n. Surplus does not hurt |
|
|
702 |
my $yaml = eval { |
703 |
YAML::XS::Load(Encode::encode_utf8($syspref)); |
704 |
}; |
705 |
if ( $@ ) { |
706 |
warn "Unable to parse $syspref syspref : $@"; |
707 |
return (); |
708 |
} |
709 |
my @result; |
692 |
my @result; |
710 |
my @tags_list; |
693 |
my @tags_list; |
711 |
|
694 |
|