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