use CGI qw ( -utf8 );
use DateTime::TimeZone;
use File::Spec;
+use File::Slurp;
use List::MoreUtils qw/ any /;
use LWP::Simple;
use Module::Load::Conditional qw(can_load);
use Config;
use Search::Elasticsearch;
use Try::Tiny;
-use YAML qw/LoadFile/;
+use YAML::XS;
+use Encode;
use C4::Output;
use C4::Auth;
use Koha;
use Koha::DateUtils qw(dt_from_string output_pref);
use Koha::Acquisition::Currencies;
+use Koha::BackgroundJob;
+use Koha::BiblioFrameworks;
+use Koha::Email;
use Koha::Patron::Categories;
use Koha::Patrons;
use Koha::Caches;
use Koha::Config::SysPrefs;
use Koha::Illrequest::Config;
use Koha::SearchEngine::Elasticsearch;
+use Koha::Logger;
+use Koha::Filter::MARC::ViewPolicy;
use C4::Members::Statistics;
#use Smart::Comments '####';
-my $query = new CGI;
+my $query = CGI->new;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
template_name => "about.tt",
query => $query,
type => "intranet",
- authnotrequired => 0,
flagsrequired => { catalogue => 1 },
debug => 1,
}
environment_invalid => $env_invalid
};
+{ # Logger checks
+ my $log4perl_config = C4::Context->config("log4perl_conf");
+ my @log4perl_errors;
+ if ( ! $log4perl_config ) {
+ push @log4perl_errors, 'missing_config_entry'
+ }
+ else {
+ my @lines = read_file($log4perl_config) or push @log4perl_errors, 'cannot_read_config_file';
+ for my $line ( @lines ) {
+ next unless $line =~ m|log4perl.appender.\w+.filename=(.*)|;
+ push @log4perl_errors, 'logfile_not_writable' unless -w $1;
+ }
+ }
+ eval {Koha::Logger->get};
+ push @log4perl_errors, 'cannot_init_module' and warn $@ if $@;
+ $template->param( log4perl_errors => @log4perl_errors );
+}
+
$template->param(
time_zone => $time_zone,
current_date_and_time => output_pref({ dt => dt_from_string(), dateformat => 'iso' })
my $warnPrefAnonymousPatronOPACPrivacy_PatronDoesNotExist = ( not $anonymous_patron and Koha::Patrons->search({ privacy => 2 })->count );
+my $warnPrefKohaAdminEmailAddress = not Email::Valid->address(C4::Context->preference('KohaAdminEmailAddress'));
+
+my $c = Koha::Items->filter_by_visible_in_opac->count;
+my @warnings = C4::Context->dbh->selectrow_array('SHOW WARNINGS');
+my $warnPrefOpacHiddenItems = $warnings[2];
+
+my $invalid_yesno = Koha::Config::SysPrefs->search(
+ {
+ type => 'YesNo',
+ value => { -or => { 'is' => undef, -not_in => [ "1", "0" ] } }
+ }
+);
+$template->param( invalid_yesno => $invalid_yesno );
+
my $errZebraConnection = C4::Context->Zconn("biblioserver",0)->errcode();
my $warnIsRootUser = (! $loggedinuser);
my @xml_config_warnings;
-my $context = new C4::Context;
-
if ( C4::Context->config('zebra_bib_index_mode')
and C4::Context->config('zebra_bib_index_mode') eq 'grs1' )
{
push @xml_config_warnings, { error => 'zebra_auth_index_mode_is_grs1' };
}
-if ( (C4::Context->config('zebra_auth_index_mode') eq 'dom') && ($context->{'server'}->{'authorityserver'}->{'config'} !~ /zebra-authorities-dom.cfg/) ) {
+my $authorityserver = C4::Context->zebraconfig('authorityserver');
+if( ( C4::Context->config('zebra_auth_index_mode')
+ and C4::Context->config('zebra_auth_index_mode') eq 'dom' )
+ && ( $authorityserver->{config} !~ /zebra-authorities-dom.cfg/ ) )
+{
push @xml_config_warnings, {
error => 'zebra_auth_index_mode_mismatch_warn'
};
# fetch the list of available indexes (e.g. plugins, etc)
$es_status->{nodes} = $es_conf->{nodes};
my $es = Search::Elasticsearch->new({ nodes => $es_conf->{nodes} });
+ my $es_status->{version} = $es->info->{version}->{number};
foreach my $index ( @indexes ) {
my $count;
foreach my $syspref (@yaml_prefs) {
my $yaml = C4::Context->preference( $syspref );
if ( $yaml ) {
- eval { YAML::Load( "$yaml\n\n" ); };
+ eval { YAML::XS::Load( Encode::encode_utf8("$yaml\n\n") ); };
if ($@) {
push @bad_yaml_prefs, $syspref;
}
{
my $dbh = C4::Context->dbh;
my ($bad_relationships_count) = $dbh->selectall_arrayref(q{
- SELECT COUNT(*)
- FROM (
- SELECT relationship FROM borrower_relationships WHERE relationship='_bad_data'
- UNION ALL
- SELECT relationship FROM borrowers WHERE relationship='_bad_data') a
+ SELECT COUNT(*) FROM borrower_relationships WHERE relationship='_bad_data'
});
$bad_relationships_count = $bad_relationships_count->[0]->[0];
my $existing_relationships = $dbh->selectall_arrayref(q{
- SELECT DISTINCT(relationship)
- FROM (
- SELECT relationship FROM borrower_relationships WHERE relationship IS NOT NULL
- UNION ALL
- SELECT relationship FROM borrowers WHERE relationship IS NOT NULL) a
+ SELECT DISTINCT(relationship) FROM borrower_relationships WHERE relationship IS NOT NULL
});
my %valid_relationships = map { $_ => 1 } split( /,|\|/, C4::Context->preference('borrowerRelationship') );
}
}
+{
+ # Test 'bcrypt_settings' config for Pseudonymization
+ $template->param( config_bcrypt_settings_no_set => 1 )
+ if C4::Context->preference('Pseudonymization')
+ and not C4::Context->config('bcrypt_settings');
+}
+
+{
+ my @frameworkcodes = Koha::BiblioFrameworks->search->get_column('frameworkcode');
+ my @hidden_biblionumbers;
+ push @frameworkcodes, ""; # it's not in the biblio_frameworks table!
+ for my $frameworkcode ( @frameworkcodes ) {
+ my $shouldhidemarc_opac = Koha::Filter::MARC::ViewPolicy->should_hide_marc(
+ {
+ frameworkcode => $frameworkcode,
+ interface => "opac"
+ }
+ );
+ push @hidden_biblionumbers, { frameworkcode => $frameworkcode, interface => 'opac' }
+ if $shouldhidemarc_opac->{biblionumber};
+
+ my $shouldhidemarc_intranet = Koha::Filter::MARC::ViewPolicy->should_hide_marc(
+ {
+ frameworkcode => $frameworkcode,
+ interface => "intranet"
+ }
+ );
+ push @hidden_biblionumbers, { frameworkcode => $frameworkcode, interface => 'intranet' }
+ if $shouldhidemarc_intranet->{biblionumber};
+ }
+ $template->param( warnHiddenBiblionumbers => \@hidden_biblionumbers );
+}
+
+{
+ # BackgroundJob - test connection to message broker
+ eval {
+ Koha::BackgroundJob->connect;
+ };
+ if ( $@ ) {
+ warn $@;
+ $template->param( warnConnectBroker => $@ );
+ }
+}
+
my %versions = C4::Context::get_versions();
$template->param(
warnPrefAnonymousPatronAnonSuggestions => $warnPrefAnonymousPatronAnonSuggestions,
warnPrefAnonymousPatronOPACPrivacy_PatronDoesNotExist => $warnPrefAnonymousPatronOPACPrivacy_PatronDoesNotExist,
warnPrefAnonymousPatronAnonSuggestions_PatronDoesNotExist => $warnPrefAnonymousPatronAnonSuggestions_PatronDoesNotExist,
+ warnPrefKohaAdminEmailAddress => $warnPrefKohaAdminEmailAddress,
+ warnPrefOpacHiddenItems => $warnPrefOpacHiddenItems,
errZebraConnection => $errZebraConnection,
warnIsRootUser => $warnIsRootUser,
warnNoActiveCurrency => $warnNoActiveCurrency,
current => ($pm_type eq 'current_pm' ? 1 : 0),
require => $stats->{'required'},
reqversion => $stats->{'min_ver'},
- maxversion => $stats->{'max_ver'}
+ maxversion => $stats->{'max_ver'},
+ excversion => $stats->{'exc_ver'}
}
);
}
## Release teams
my $teams =
-e "$docdir" . "/teams.yaml"
- ? LoadFile( "$docdir" . "/teams.yaml" )
+ ? YAML::XS::LoadFile( "$docdir" . "/teams.yaml" )
: {};
my $dev_team = (sort {$b <=> $a} (keys %{$teams->{team}}))[0];
my $short_version = substr($versions{'kohaVersion'},0,5);
## Contributors
my $contributors =
-e "$docdir" . "/contributors.yaml"
- ? LoadFile( "$docdir" . "/contributors.yaml" )
+ ? YAML::XS::LoadFile( "$docdir" . "/contributors.yaml" )
: {};
for my $version ( sort { $a <=> $b } keys %{$teams->{team}} ) {
for my $role ( keys %{ $teams->{team}->{$version} } ) {
projects / koha-ffzg.git / blobdiff