| 
      
            Lines 751-757
          sub _remove_stopwords {
      
      
        Link Here
      
     | 
  
        
          | 751 | 
              my @stopwords_removed;  | 
          751 | 
              my @stopwords_removed;  | 
        
        
          | 752 | 
           | 
          752 | 
           | 
        
        
          | 753 | 
              # phrase and exact-qualified indexes shouldn't have stopwords removed  | 
          753 | 
              # phrase and exact-qualified indexes shouldn't have stopwords removed  | 
        
          
            
              | 754 | 
                  if ( $index !~ m/phr|ext/ ) { | 
              754 | 
                  if ( $index !~ m/,(phr|ext)/ ) { | 
            
        
          | 755 | 
           | 
          755 | 
           | 
        
        
          | 756 | 
          # remove stopwords from operand : parse all stopwords & remove them (case insensitive)  | 
          756 | 
          # remove stopwords from operand : parse all stopwords & remove them (case insensitive)  | 
        
        
          | 757 | 
          #       we use IsAlpha unicode definition, to deal correctly with diacritics.  | 
          757 | 
          #       we use IsAlpha unicode definition, to deal correctly with diacritics.  | 
        
  
    | 
      
            Lines 1386-1392
          sub buildQuery {
      
      
        Link Here
      
     | 
  
        
          | 1386 | 
           | 
          1386 | 
           | 
        
        
          | 1387 | 
                          # Set default structure attribute (word list)  | 
          1387 | 
                          # Set default structure attribute (word list)  | 
        
        
          | 1388 | 
                          my $struct_attr = q{}; | 
          1388 | 
                          my $struct_attr = q{}; | 
        
          
            
              | 1389 | 
                              unless ( $indexes_set || !$index || $index =~ /(st-|phr|ext|wrdl|nb|ns)/ ) { | 
              1389 | 
                              unless ( $indexes_set || !$index || $index =~ /,(st-|phr|ext|wrdl)/ || $index =~ /^(nb|ns)$/ ) { | 
            
        
          | 1390 | 
                              $struct_attr = ",wrdl";  | 
          1390 | 
                              $struct_attr = ",wrdl";  | 
        
        
          | 1391 | 
                          }  | 
          1391 | 
                          }  | 
        
        
          | 1392 | 
           | 
          1392 | 
           | 
        
  
    | 
      
            Lines 1404-1410
          sub buildQuery {
      
      
        Link Here
      
     | 
  
        
          | 1404 | 
                          }  | 
          1404 | 
                          }  | 
        
        
          | 1405 | 
           | 
          1405 | 
           | 
        
        
          | 1406 | 
                          if ($auto_truncation){ | 
          1406 | 
                          if ($auto_truncation){ | 
        
          
            
              | 1407 | 
              					unless ( $index =~ /(st-|phr|ext)/ ) { | 
              1407 | 
              					unless ( $index =~ /,(st-|phr|ext)/ ) { | 
            
        
          | 1408 | 
          						#FIXME only valid with LTR scripts  | 
          1408 | 
          						#FIXME only valid with LTR scripts  | 
        
        
          | 1409 | 
          						$operand=join(" ",map{ | 
          1409 | 
          						$operand=join(" ",map{ | 
        
        
          | 1410 | 
          											(index($_,"*")>0?"$_":"$_*")  | 
          1410 | 
          											(index($_,"*")>0?"$_":"$_*")  | 
        
            
              | 1411 | 
              -   | 
               | 
               |