--- EPrints/search.cgi 2007/06/29 17:03:54 12 +++ EPrints/search.cgi 2007/06/30 12:50:56 16 @@ -37,13 +37,13 @@ my $start = $cgi->param( 'start' ) || 0; my $query = $cgi->param( 'query' ) || ''; my $similar = $cgi->param( 'similar' ) || ''; -my $slogovi = $cgi->param( 'slogovi' ); -my $stem = $cgi->param( 'stem' ); +my $slogovi = $cgi->param( 'slogovi' ) || ''; +my $stem = $cgi->param( 'stem' ) || ''; my $charset='iso-8859-2'; my $full_query = $query; -$full_query .= " " . EPrints::slogovi( $query ) if ($slogovi); +$full_query .= " " . EPrints->slogovi( $query ) if ($slogovi); $full_query .= " " . StemHR->stem( $query ) if ($stem); ############################## @@ -61,8 +61,9 @@

- - + Enter bunch of related terms to documents you are trying to find: +
+
|, $cgi->checkbox( -name => 'stem' ), $cgi->checkbox( -name => 'slogovi' ), qq|

\n|; @@ -117,7 +118,7 @@ # retrieve the title and text ################################## my $i = 1 + $start; - print $semantic->paginate( "?query=$query;similar=$similar", $start, scalar keys %$results, $RESULTS_TO_DISPLAY); + print $semantic->paginate( "?query=$query;similar=$similar;stem=$stem;slogovi=$slogovi", $start, scalar keys %$results, $RESULTS_TO_DISPLAY); foreach my $id ( @display_results ){ EPrints->id( $id ); print "

$i. ", EPrints->lookup( 'title' ), "";