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

(-)a/Koha/SearchEngine/Elasticsearch.pm (-1 / +19 lines)
Lines 38-43 use Clone qw( clone ); Link Here
38
use Modern::Perl;
38
use Modern::Perl;
39
use Readonly qw( Readonly );
39
use Readonly qw( Readonly );
40
use Search::Elasticsearch;
40
use Search::Elasticsearch;
41
use Search::Elasticsearch::Role::Cxn;
42
{
43
    # Monkey-patch Search::Elasticsearch::Role::Cxn::process_response
44
    no warnings 'redefine';
45
46
    my $orig_sub = \&Search::Elasticsearch::Role::Cxn::process_response;
47
48
    # Override method
49
    *Search::Elasticsearch::Role::Cxn::process_response = sub {
50
        my ( $self, $params, $code, $msg, $body, $headers ) = @_;
51
52
        #if ( $headers && $headers->{'x-elastic-product'} ne 'Elasticsearch' ) {
53
        #    $Search::Elasticsearch::Role::Cxn::PRODUCT_CHECK_VALUE = '';
54
        #}
55
        $Search::Elasticsearch::Role::Cxn::PRODUCT_CHECK_VALUE = '';
56
        $orig_sub->(@_);
57
    };
58
}
59
41
use Try::Tiny qw( catch try );
60
use Try::Tiny qw( catch try );
42
use YAML::XS;
61
use YAML::XS;
43
62
44
- 

Return to bug 38345