|
Lines 1359-1370
sub parseQuery {
Link Here
|
| 1359 |
$query = ''; |
1359 |
$query = ''; |
| 1360 |
for ( my $ii = 0 ; $ii <= @operands ; $ii++ ) { |
1360 |
for ( my $ii = 0 ; $ii <= @operands ; $ii++ ) { |
| 1361 |
next unless $operands[$ii]; |
1361 |
next unless $operands[$ii]; |
| 1362 |
$query .= $operators[ $ii - 1 ] eq 'or' ? ' || ' : ' && ' |
1362 |
$query .= $operators[$ii-1] && $operators[ $ii - 1 ] eq 'or' ? ' || ' : ' && ' |
| 1363 |
if ($query); |
1363 |
if ($query); |
| 1364 |
if ( $operands[$ii] =~ /^[^"]\W*[-|_\w]*:\w.*[^"]$/ ) { |
1364 |
if ( $operands[$ii] =~ /^[^"]\W*[-|_\w]*:\w.*[^"]$/ ) { |
| 1365 |
$query .= $operands[$ii]; |
1365 |
$query .= $operands[$ii]; |
| 1366 |
} |
1366 |
} |
| 1367 |
elsif ( $indexes[$ii] =~ m/su-/ ) { |
1367 |
elsif ( $indexes[$ii] && $indexes[$ii] =~ m/su-/ ) { |
| 1368 |
$query .= $indexes[$ii] . '(' . $operands[$ii] . ')'; |
1368 |
$query .= $indexes[$ii] . '(' . $operands[$ii] . ')'; |
| 1369 |
} |
1369 |
} |
| 1370 |
else { |
1370 |
else { |
| 1371 |
- |
|
|