|
Lines 1071-1085
sub buildQuery {
Link Here
|
| 1071 |
|
1071 |
|
| 1072 |
my $stopwords_removed; # flag to determine if stopwords have been removed |
1072 |
my $stopwords_removed; # flag to determine if stopwords have been removed |
| 1073 |
|
1073 |
|
| 1074 |
my $cclq; |
1074 |
my $cclq=0; |
| 1075 |
my $cclindexes = getIndexes(); |
1075 |
my $cclindexes = getIndexes(); |
| 1076 |
if( $query !~ /\s*ccl=/ ){ |
1076 |
if( $query !~ /\s*ccl=/ ) { |
| 1077 |
for my $index (@$cclindexes){ |
1077 |
while(!$cclq && $query=~/(?:^|\W)(\w+)(,\w+)*[:=]/g) { |
| 1078 |
if($query =~ /($index)(,?\w)*[:=]/){ |
1078 |
my $dx=lc($1); |
| 1079 |
$cclq = 1; |
1079 |
$cclq= grep {lc($_) eq $dx} @$cclindexes; |
| 1080 |
} |
1080 |
} |
| 1081 |
} |
1081 |
$query = "ccl=$query" if $cclq; |
| 1082 |
$query = "ccl=$query" if($cclq); |
|
|
| 1083 |
} |
1082 |
} |
| 1084 |
|
1083 |
|
| 1085 |
# for handling ccl, cql, pqf queries in diagnostic mode, skip the rest of the steps |
1084 |
# for handling ccl, cql, pqf queries in diagnostic mode, skip the rest of the steps |
| 1086 |
- |
|
|