--- trunk/MWS_swish.pm 2004/05/06 23:06:08 16 +++ trunk/MWS_swish.pm 2004/05/07 11:25:01 17 @@ -48,8 +48,13 @@ print STDERR "swish search: $s\n"; my $results = $index->Query($s); + # store total number of hits + $self->{'total_hits'} = $results->Hits; + my @res_ids; + my $count = 0; + while ( my $r = $results->NextResult ) { sub p($$) { @@ -72,6 +77,8 @@ # this is redundant, but needed for templates later... $self->{cache}->{$id}->{'id'} = $id; + + last if ($count++ > $self->{max_results}); } return @res_ids;