Tomas Cohen Arazi
826326064e
This patch removes code related to stopwords usage. The following methods are removed: C4::Search->remove_stopwords C4::Context->stopwords C4::Context->_new_stopwords And the buildQuery API was changed (removed the \@removed_stopwords return value). A follow-up is provided for database changes, to make rebasing easier. To test: - Apply this patch - Do some searches in both intranet and opac interfaces - Nothing should break Sponsored-by: Universidad Nacional de Córdoba Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz> Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
70 lines
1.8 KiB
Perl
Executable file
70 lines
1.8 KiB
Perl
Executable file
#!/usr/bin/perl -w
|
|
|
|
use C4::Search;
|
|
|
|
my @SEARCH = (
|
|
{ operators => [
|
|
'and',
|
|
'and'
|
|
],
|
|
operands => [
|
|
'shakespeare, "(william)"',
|
|
'dream'
|
|
],
|
|
indexes => [
|
|
'au,wrdl',
|
|
'ti',
|
|
'kw'
|
|
],
|
|
limits => [
|
|
'yr,st-numeric=2000-'
|
|
],
|
|
sort_by => [
|
|
'relevance'
|
|
],
|
|
lang => 'en',
|
|
},
|
|
);
|
|
|
|
|
|
foreach ( @SEARCH ) {
|
|
my ($expected, @mismatch);
|
|
my( $error,
|
|
$query,
|
|
$simple_query,
|
|
$query_cgi,
|
|
$query_desc,
|
|
$limit,
|
|
$limit_cgi,
|
|
$limit_desc,
|
|
$query_type )
|
|
= buildQuery( $_->{operators}, $_->{operands}, $_->{indexes}, $_->{limits}, $_->{sort_by}, 0, $_->{lang} );
|
|
|
|
die $error if $error;
|
|
|
|
$expected = $_->{query};
|
|
push @mismatch, "Query: $query (not: $expected)" unless $query eq $expected;
|
|
|
|
$expected = $_->{simple_query};
|
|
push @mismatch, "Simple Query: $simple_query (not: $expected)" unless $simple_query eq $expected;
|
|
|
|
$expected = $_->{query_cgi};
|
|
push @mismatch, "Query CGI: $query_cgi (not: $expected)" unless $query_cgi eq $expected;
|
|
|
|
$expected = $_->{query_desc};
|
|
push @mismatch, "Query desc: $query_desc (not: $expected)" unless $query_desc eq $expected;
|
|
|
|
$expected = $_->{limit};
|
|
push @mismatch, "Limit: $limit (not: $expected)" unless $limit eq $expected;
|
|
|
|
$expected = $_->{limit_cgi};
|
|
push @mismatch, "Limit CGI: $limit_cgi (not: $expected)" unless $limit_cgi eq $expected;
|
|
|
|
$expected = $_->{limit_desc};
|
|
push @mismatch, "Limit desc: $limit_desc (not: $expected)" unless $limit_desc eq $expected;
|
|
|
|
$expected = $_->{query_type};
|
|
push @mismatch, "Query Type: $query_type (not: $expected)" unless $query_type eq $expected;
|
|
|
|
die map "$_\n", @mismatch if @mismatch;
|
|
}
|