--- trunk/WebPac.pm 2005/01/28 16:58:30 656 +++ trunk/WebPac.pm 2005/01/31 12:08:35 657 @@ -359,9 +359,11 @@ $tmpl->param('full',0); } + my $swish_msg = ' '; + # create new swish instance my $swish = SWISH::API->new($INDEX); - die $swish->ErrorString.": ".$swish->LastErrorMsg if $swish->Error; + $swish_msg .= $swish->ErrorString." ".$swish->LastErrorMsg if $swish->Error; # execute query and get number of results from SWISH-E my $search = $swish->New_Search_Object; @@ -369,12 +371,14 @@ $search->SetSort($sort); my $results = $search->Execute($sw_q); - die $swish->ErrorString.": ".$swish->LastErrorMsg if $swish->Error; + $swish_msg .= $swish->ErrorString." ".$swish->LastErrorMsg if $swish->Error; my $hits = $results->Hits; $tmpl->param('hits',$hits); - $tmpl->param('search',$sw_q); + my $search_msg = $sw_q; + $search_msg .= ''.$swish_msg.'' if ($swish_msg); + $tmpl->param('search', $search_msg); $tmpl->param('PAGER_offset',$q->param("PAGER_offset") || 0); $tmpl->param('last_PAGER_offset',$q->param("last_PAGER_offset") || 0);