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