270 |
|
|
271 |
if ($q->param("e$i")) { |
if ($q->param("e$i")) { |
272 |
push @url_params,"e$i=".$q->url_param("e$i"); |
push @url_params,"e$i=".$q->url_param("e$i"); |
273 |
push @url_params_persist,"e$i=".$q->url_param("e$i"); |
# push @url_params_persist,"e$i=".$q->url_param("e$i"); |
274 |
} |
} |
275 |
|
|
276 |
my $wc="*"; # swish wildcard |
my $wc="*"; # swish wildcard |
361 |
|
|
362 |
# create new swish instance |
# create new swish instance |
363 |
my $swish = SWISH::API->new($INDEX); |
my $swish = SWISH::API->new($INDEX); |
364 |
$swish->AbortLastError if $swish->Error; |
die $swish->ErrorString.": ".$swish->LastErrorMsg if $swish->Error; |
365 |
|
|
366 |
# execute query and get number of results from SWISH-E |
# execute query and get number of results from SWISH-E |
367 |
my $search = $swish->New_Search_Object; |
my $search = $swish->New_Search_Object; |
369 |
$search->SetSort($sort); |
$search->SetSort($sort); |
370 |
|
|
371 |
my $results = $search->Execute($sw_q); |
my $results = $search->Execute($sw_q); |
372 |
$swish->AbortLastError if $swish->Error; |
die $swish->ErrorString.": ".$swish->LastErrorMsg if $swish->Error; |
373 |
|
|
374 |
my $hits = $results->Hits; |
my $hits = $results->Hits; |
375 |
|
|