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

(-)a/cataloguing/addbooks.pl (-3 / +5 lines)
Lines 27-32 Link Here
27
use Modern::Perl;
27
use Modern::Perl;
28
28
29
use CGI qw ( -utf8 );
29
use CGI qw ( -utf8 );
30
use URI::Escape;
30
use C4::Auth;
31
use C4::Auth;
31
use C4::Biblio;
32
use C4::Biblio;
32
use C4::Breeding;
33
use C4::Breeding;
Lines 70-83 if ($query) { Link Here
70
    my $QParser;
71
    my $QParser;
71
    $QParser = C4::Context->queryparser if (C4::Context->preference('UseQueryParser'));
72
    $QParser = C4::Context->queryparser if (C4::Context->preference('UseQueryParser'));
72
    my $builtquery;
73
    my $builtquery;
74
    my $query_cgi;
73
    my $builder = Koha::SearchEngine::QueryBuilder->new(
75
    my $builder = Koha::SearchEngine::QueryBuilder->new(
74
        { index => $Koha::SearchEngine::BIBLIOS_INDEX } );
76
        { index => $Koha::SearchEngine::BIBLIOS_INDEX } );
75
    my $searcher = Koha::SearchEngine::Search->new(
77
    my $searcher = Koha::SearchEngine::Search->new(
76
        { index => $Koha::SearchEngine::BIBLIOS_INDEX } );
78
        { index => $Koha::SearchEngine::BIBLIOS_INDEX } );
77
    if ($QParser) {
79
    if ($QParser) {
78
        $builtquery = $query;
80
        $builtquery = $query;
81
        $query_cgi = "q=".uri_escape_utf8($query);
79
    } else {
82
    } else {
80
        ( undef, $builtquery, undef, undef, undef, undef, undef, undef, undef, undef ) =
83
        ( undef, $builtquery, undef, $query_cgi, undef, undef, undef, undef, undef, undef ) =
81
          $builder->build_query_compat( undef, \@operands, undef, undef, undef, 0, $lang );
84
          $builder->build_query_compat( undef, \@operands, undef, undef, undef, 0, $lang );
82
    }
85
    }
83
    # find results
86
    # find results
Lines 101-107 if ($query) { Link Here
101
        total          => $total_hits,
104
        total          => $total_hits,
102
        query          => $query,
105
        query          => $query,
103
        resultsloop    => \@newresults,
106
        resultsloop    => \@newresults,
104
        pagination_bar => pagination_bar( "/cgi-bin/koha/cataloguing/addbooks.pl?q=$query&", getnbpages( $total_hits, $results_per_page ), $page, 'page' ),
107
        pagination_bar => pagination_bar( "/cgi-bin/koha/cataloguing/addbooks.pl?$query_cgi&", getnbpages( $total_hits, $results_per_page ), $page, 'page' ),
105
    );
108
    );
106
}
109
}
107
110
108
- 

Return to bug 24236