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 |
- |
|
|