View | Details | Raw Unified | Return to bug 37260
Collapse All | Expand All

(-)a/about.pl (-11 / +15 lines)
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
- 

Return to bug 37260