View | Details | Raw Unified | Return to bug 6786
Collapse All | Expand All

(-)a/C4/Search.pm (-9 / +7 lines)
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
- 

Return to bug 6786