--- trunk/WebPac.pm 2005/01/18 17:07:14 636 +++ trunk/WebPac.pm 2005/01/19 22:34:31 639 @@ -270,7 +270,7 @@ if ($q->param("e$i")) { push @url_params,"e$i=".$q->url_param("e$i"); - push @url_params_persist,"e$i=".$q->url_param("e$i"); +# push @url_params_persist,"e$i=".$q->url_param("e$i"); } my $wc="*"; # swish wildcard @@ -361,7 +361,7 @@ # create new swish instance my $swish = SWISH::API->new($INDEX); - $swish->AbortLastError if $swish->Error; + die $swish->ErrorString.": ".$swish->LastErrorMsg if $swish->Error; # execute query and get number of results from SWISH-E my $search = $swish->New_Search_Object; @@ -369,7 +369,7 @@ $search->SetSort($sort); my $results = $search->Execute($sw_q); - $swish->AbortLastError if $swish->Error; + die $swish->ErrorString.": ".$swish->LastErrorMsg if $swish->Error; my $hits = $results->Hits;