| Lines 1308-1317
          sub buildQuery {
      
      
        Link Here | 
        
          | 1308 |     # if user wants to do ccl or cql, start the query with that | 1308 |     # if user wants to do ccl or cql, start the query with that | 
        
          | 1309 | #    $query =~ s/:/=/g; | 1309 | #    $query =~ s/:/=/g; | 
        
          | 1310 |     $query =~ s/(?<=(ti|au|pb|su|an|kw|mc)):/=/g; | 1310 |     $query =~ s/(?<=(ti|au|pb|su|an|kw|mc)):/=/g; | 
          
            
              | 1311 |     $query =~ s/(?<=rtrn):/=/g; | 1311 |     $query =~ s/(?<=(wrdl)):/=/g; | 
            
              |  |  | 1312 |     $query =~ s/(?<=(trn|phr)):/=/g; | 
        
          | 1312 |     $limit =~ s/:/=/g; | 1313 |     $limit =~ s/:/=/g; | 
        
          | 1313 |     for ( $query, $query_desc, $limit, $limit_desc ) { | 1314 |     for ( $query, $query_desc, $limit, $limit_desc ) { | 
          
            
              | 1314 |         s/  / /g;    # remove extra spaces | 1315 |         s/  +/ /g;    # remove extra spaces | 
        
          | 1315 |         s/^ //g;     # remove any beginning spaces | 1316 |         s/^ //g;     # remove any beginning spaces | 
        
          | 1316 |         s/ $//g;     # remove any ending spaces | 1317 |         s/ $//g;     # remove any ending spaces | 
        
          | 1317 |         s/==/=/g;    # remove double == from query | 1318 |         s/==/=/g;    # remove double == from query | 
            
              | 1318 | -  |  |  |