|
Lines 249-255
sub _build_query {
Link Here
|
| 249 |
my $zquery=''; |
249 |
my $zquery=''; |
| 250 |
my $squery=''; |
250 |
my $squery=''; |
| 251 |
my $nterms=0; |
251 |
my $nterms=0; |
| 252 |
foreach my $k ( keys %$pars ) { |
252 |
foreach my $k ( sort keys %$pars ) { |
|
|
253 |
#note that the sort keys forces an identical result under Perl 5.18 |
| 254 |
#one of the unit tests is based on that assumption |
| 253 |
if( ( my $val=$pars->{$k} ) && $qry_build->{$k} ) { |
255 |
if( ( my $val=$pars->{$k} ) && $qry_build->{$k} ) { |
| 254 |
$qry_build->{$k} =~ s/#term/$val/g; |
256 |
$qry_build->{$k} =~ s/#term/$val/g; |
| 255 |
$zquery .= $qry_build->{$k}; |
257 |
$zquery .= $qry_build->{$k}; |
| 256 |
- |
|
|