Lines 178-183
if ( $tab eq 'about' ) {
Link Here
|
178 |
$where_is_memcached_config = 'config_only'; |
178 |
$where_is_memcached_config = 'config_only'; |
179 |
} |
179 |
} |
180 |
|
180 |
|
|
|
181 |
message_broker_check($template); |
182 |
|
181 |
$template->param( |
183 |
$template->param( |
182 |
effective_caching_method => $effective_caching_method, |
184 |
effective_caching_method => $effective_caching_method, |
183 |
memcached_servers => $memcached_servers, |
185 |
memcached_servers => $memcached_servers, |
Lines 672-687
if($tab eq 'sysinfo') {
Link Here
|
672 |
$template->param( warnFastCataloging => $no_FA_framework ); |
674 |
$template->param( warnFastCataloging => $no_FA_framework ); |
673 |
} |
675 |
} |
674 |
|
676 |
|
675 |
{ |
677 |
message_broker_check($template); |
676 |
# BackgroundJob - test connection to message broker |
|
|
677 |
eval { |
678 |
Koha::BackgroundJob->connect; |
679 |
}; |
680 |
if ( $@ ) { |
681 |
warn $@; |
682 |
$template->param( warnConnectBroker => $@ ); |
683 |
} |
684 |
} |
685 |
|
678 |
|
686 |
#BZ 28267: Warn administrators if there are database rows with a format other than 'DYNAMIC' |
679 |
#BZ 28267: Warn administrators if there are database rows with a format other than 'DYNAMIC' |
687 |
{ |
680 |
{ |
Lines 906-909
if ( $tab eq 'history' ) {
Link Here
|
906 |
} |
899 |
} |
907 |
} |
900 |
} |
908 |
|
901 |
|
|
|
902 |
sub message_broker_check { |
903 |
my $template = shift; |
904 |
{ |
905 |
# BackgroundJob - test connection to message broker |
906 |
eval { Koha::BackgroundJob->connect; }; |
907 |
if ($@) { |
908 |
warn $@; |
909 |
$template->param( warnConnectBroker => $@ ); |
910 |
} |
911 |
} |
912 |
} |
913 |
|
909 |
output_html_with_http_headers $query, $cookie, $template->output; |
914 |
output_html_with_http_headers $query, $cookie, $template->output; |
910 |
- |
|
|