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

(-)a/C4/Breeding.pm (-2 / +3 lines)
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
- 

Return to bug 6536