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

(-)a/C4/AuthoritiesMarc.pm (-6 / +7 lines)
Lines 220-225 sub SearchAuthorities { Link Here
220
        my $dosearch;
220
        my $dosearch;
221
        my $and=" \@and " ;
221
        my $and=" \@and " ;
222
        my $q2;
222
        my $q2;
223
        my $attr_cnt = 0;
223
        for(my $i = 0 ; $i <= $#{$value} ; $i++)
224
        for(my $i = 0 ; $i <= $#{$value} ; $i++)
224
        {
225
        {
225
            if (@$value[$i]){
226
            if (@$value[$i]){
Lines 246-260 sub SearchAuthorities { Link Here
246
                }
247
                }
247
                $attr =$attr."\"".@$value[$i]."\"";
248
                $attr =$attr."\"".@$value[$i]."\"";
248
                $q2 .=$attr;
249
                $q2 .=$attr;
249
            $dosearch=1;
250
                $dosearch=1;
251
                ++$attr_cnt;
250
            }#if value
252
            }#if value
251
        }
253
        }
252
        ##Add how many queries generated
254
        ##Add how many queries generated
253
        if ($query=~/\S+/){    
255
        if ($query=~/\S+/){
254
          $query= $and.$query.$q2 
256
          $query= $and x $attr_cnt . $query . $q2;
255
        } else {
257
        } else {
256
          $query=$q2;    
258
          $query= $q2;
257
        }         
259
        }
258
        ## Adding order
260
        ## Adding order
259
        #$query=' @or  @attr 7=2 @attr 1=Heading 0 @or  @attr 7=1 @attr 1=Heading 1'.$query if ($sortby eq "HeadingDsc");
261
        #$query=' @or  @attr 7=2 @attr 1=Heading 0 @or  @attr 7=1 @attr 1=Heading 1'.$query if ($sortby eq "HeadingDsc");
260
        my $orderstring= ($sortby eq "HeadingAsc"?
262
        my $orderstring= ($sortby eq "HeadingAsc"?
261
- 

Return to bug 4309