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