All-wrong-and-ugly solution to using exact match variables which are

persistent: it's not supported any more. However, until we have real
separation of variables comming from user, via format and/or from links
(right now, they are all using f/v) this problem can't be fixed right.
Much nicer error mesages ("Software error") instead of "Internal Server Error".

git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@639 13eb9ef6-21d5-0310-b721-a9d68796d827

diff --git a/WebPac.pm b/WebPac.pm
index 4375ea5..e4d6448 100644 (file)
--- a/WebPac.pm
+++ b/WebPac.pm
@@ -270,7 +270,7 @@ sub show_results_list {
 
                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 @@ sub show_results_list {
 
        # 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 @@ sub show_results_list {
        $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;