--- EPrints/search.cgi	2007/06/29 10:01:31	5
+++ EPrints/search.cgi	2007/06/29 14:53:14	8
@@ -15,6 +15,8 @@
 use Data::Dump qw/dump/;
 use EPrints;
 use Cwd qw/abs_path/;
+use lib '/home/dpavlin/stem-hr/';
+use StemHR;
 
 my $abs_path = abs_path( $0 );
 $abs_path =~ s!/[^/]*$!/!;  #!fix-vim
@@ -34,11 +36,13 @@
 my $query = $cgi->param( 'query' ) || '';
 my $similar = $cgi->param( 'similar' ) || '';
 my $slogovi = $cgi->param( 'slogovi' );
+my $stem = $cgi->param( 'stem' );
 
 my $charset='iso-8859-2';
 
 my $full_query = $query;
-$full_query .= " " . join(" ", EPrints::slogovi( $query )) if ($slogovi);
+$full_query .= " " . EPrints::slogovi( $query ) if ($slogovi);
+$full_query .= " " . StemHR->stem( $query ) if ($stem);
 
 ##############################
 #	Start the HTML output
@@ -57,7 +61,7 @@
     <p>
       <input type="text" name="query" value="$query" />
       <input type="submit" />
-	  |, $cgi->checkbox( -name => 'slogovi' ), qq|
+	  |, $cgi->checkbox( -name => 'stem' ), $cgi->checkbox( -name => 'slogovi' ), qq|
     </p>\n|;
 
 
@@ -112,9 +116,11 @@
 	print $semantic->paginate( "?query=$query;similar=$similar", $start, scalar keys %$results, $RESULTS_TO_DISPLAY);
 	foreach my $id ( @display_results ){
 		EPrints->id( $id );
-        print "<p>$i. <b>", EPrints->lookup( 'title' ), "</b> <em>", sprintf("%.2f",$results->{$id}), "</em> <a href=\"?similar=$id\">similar</a></p>\n";
+        print "<p>$i. <b>", EPrints->lookup( 'title' ), "</b>";
+		print "$id <em>", sprintf("%.2f",$results->{$id}), "</em> <a href=\"?similar=$id\">similar</a></p>\n";
         print "<p>";
 #		print $semantic->summarize($id);
+		print "</p><p>Keywords: ", EPrints->lookup('keywords'), "</p><p>";
 		print "<small>", EPrints->lookup('abstract'), "</small>";
 		print "</p>\n";
         $i++;