|
Lines 272-277
sub build_query_compat {
Link Here
|
| 272 |
$lang, $params ) |
272 |
$lang, $params ) |
| 273 |
= @_; |
273 |
= @_; |
| 274 |
|
274 |
|
|
|
275 |
|
| 275 |
my $query; |
276 |
my $query; |
| 276 |
my $query_str = ''; |
277 |
my $query_str = ''; |
| 277 |
my $search_param_query_str = ''; |
278 |
my $search_param_query_str = ''; |
|
Lines 1119-1124
sub _fix_limit_special_cases {
Link Here
|
| 1119 |
elsif ( $l =~ /^available$/ ) { |
1120 |
elsif ( $l =~ /^available$/ ) { |
| 1120 |
push @new_lim, 'available:true'; |
1121 |
push @new_lim, 'available:true'; |
| 1121 |
} |
1122 |
} |
|
|
1123 |
elsif ( $l =~ /^\s*(kw\b[\w,-]*?):(.*)/) { |
| 1124 |
my ( $field, $term ) = ($1, $2); |
| 1125 |
if ( defined($field) && defined($term) && $field =~ /,phr$/) { |
| 1126 |
push @new_lim, "(\"$term\")"; |
| 1127 |
} |
| 1128 |
else { |
| 1129 |
push @new_lim, $term; |
| 1130 |
} |
| 1131 |
} |
| 1122 |
else { |
1132 |
else { |
| 1123 |
my ( $field, $term ) = $l =~ /^\s*([\w,-]*?):(.*)/; |
1133 |
my ( $field, $term ) = $l =~ /^\s*([\w,-]*?):(.*)/; |
| 1124 |
$field =~ s/,phr$//; #We are quoting all the limits as phrase, this prevents from quoting again later |
1134 |
$field =~ s/,phr$//; #We are quoting all the limits as phrase, this prevents from quoting again later |
| 1125 |
- |
|
|