+
+# Circ rule warnings
+{
+ my $dbh = C4::Context->dbh;
+ my $units = Koha::CirculationRules->search({ rule_name => 'lengthunit', rule_value => { -not_in => ['days', 'hours'] } });
+
+ if ( $units->count ) {
+ $template->param(
+ warnIssuingRules => 1,
+ ir_units => $units,
+ );
+ }
+}
+
+# Guarantor relationships warnings
+{
+ 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
+ });
+
+ $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
+ });
+
+ my %valid_relationships = map { $_ => 1 } split( /,|\|/, C4::Context->preference('borrowerRelationship') );
+ $valid_relationships{ _bad_data } = 1; # we handle this case in another way
+
+ my $wrong_relationships = [ grep { !$valid_relationships{ $_->[0] } } @{$existing_relationships} ];
+ if ( @$wrong_relationships or $bad_relationships_count ) {
+
+ $template->param(
+ warnRelationships => 1,
+ );
+
+ if ( $wrong_relationships ) {
+ $template->param(
+ wrong_relationships => $wrong_relationships
+ );
+ }
+ if ($bad_relationships_count) {
+ $template->param(
+ bad_relationships_count => $bad_relationships_count,
+ );
+ }
+ }
+}
+
+{
+ # 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!
+ my $no_FA_framework = 1;
+ for my $frameworkcode ( @frameworkcodes ) {
+ $no_FA_framework = 0 if $frameworkcode eq 'FA';
+ 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 );
+ $template->param( warnFastCataloging => $no_FA_framework );
+}
+
+{
+ # BackgroundJob - test connection to message broker
+ eval {
+ Koha::BackgroundJob->connect;
+ };
+ if ( $@ ) {
+ warn $@;
+ $template->param( warnConnectBroker => $@ );
+ }
+}
+