|
Lines 33-39
use XML::Simple;
Link Here
|
| 33 |
use Config; |
33 |
use Config; |
| 34 |
use Search::Elasticsearch; |
34 |
use Search::Elasticsearch; |
| 35 |
use Try::Tiny; |
35 |
use Try::Tiny; |
| 36 |
use YAML qw/LoadFile/; |
36 |
use YAML::XS; |
| 37 |
|
37 |
|
| 38 |
use C4::Output; |
38 |
use C4::Output; |
| 39 |
use C4::Auth; |
39 |
use C4::Auth; |
|
Lines 429-435
my @bad_yaml_prefs;
Link Here
|
| 429 |
foreach my $syspref (@yaml_prefs) { |
429 |
foreach my $syspref (@yaml_prefs) { |
| 430 |
my $yaml = C4::Context->preference( $syspref ); |
430 |
my $yaml = C4::Context->preference( $syspref ); |
| 431 |
if ( $yaml ) { |
431 |
if ( $yaml ) { |
| 432 |
eval { YAML::Load( "$yaml\n\n" ); }; |
432 |
eval { YAML::XS::Load( "$yaml\n\n" ); }; |
| 433 |
if ($@) { |
433 |
if ($@) { |
| 434 |
push @bad_yaml_prefs, $syspref; |
434 |
push @bad_yaml_prefs, $syspref; |
| 435 |
} |
435 |
} |
|
Lines 666-672
if ( defined C4::Context->config('docdir') ) {
Link Here
|
| 666 |
## Release teams |
666 |
## Release teams |
| 667 |
my $teams = |
667 |
my $teams = |
| 668 |
-e "$docdir" . "/teams.yaml" |
668 |
-e "$docdir" . "/teams.yaml" |
| 669 |
? LoadFile( "$docdir" . "/teams.yaml" ) |
669 |
? YAML::XS::LoadFile( "$docdir" . "/teams.yaml" ) |
| 670 |
: {}; |
670 |
: {}; |
| 671 |
my $dev_team = (sort {$b <=> $a} (keys %{$teams->{team}}))[0]; |
671 |
my $dev_team = (sort {$b <=> $a} (keys %{$teams->{team}}))[0]; |
| 672 |
my $short_version = substr($versions{'kohaVersion'},0,5); |
672 |
my $short_version = substr($versions{'kohaVersion'},0,5); |
|
Lines 678-684
$template->param( development_version => $development_version );
Link Here
|
| 678 |
## Contributors |
678 |
## Contributors |
| 679 |
my $contributors = |
679 |
my $contributors = |
| 680 |
-e "$docdir" . "/contributors.yaml" |
680 |
-e "$docdir" . "/contributors.yaml" |
| 681 |
? LoadFile( "$docdir" . "/contributors.yaml" ) |
681 |
? YAML::XS::LoadFile( "$docdir" . "/contributors.yaml" ) |
| 682 |
: {}; |
682 |
: {}; |
| 683 |
for my $version ( sort { $a <=> $b } keys %{$teams->{team}} ) { |
683 |
for my $version ( sort { $a <=> $b } keys %{$teams->{team}} ) { |
| 684 |
for my $role ( keys %{ $teams->{team}->{$version} } ) { |
684 |
for my $role ( keys %{ $teams->{team}->{$version} } ) { |