--- EPrints/index.pl	2007/06/29 09:21:11	3
+++ EPrints/index.pl	2007/06/29 09:52:53	4
@@ -11,6 +11,8 @@
 
 my $debug = shift @ARGV;
 
+my $type = 'slogovi';
+
 my $dbh = EPrints->dbh;
 my $sth = $dbh->prepare(qq{
 SELECT
@@ -32,7 +34,7 @@
                             maximum_word_length => 15 );
 
 # use this encoding for any incoming text
-$indexer->set_default_encoding( "utf8"); 
+#$indexer->set_default_encoding( "utf8"); 
 
 my $total = 0;
 
@@ -46,7 +48,8 @@
 	my @body = split( /\W*\s+\W*/, "$title $title $title $keywords $keywords $abstract" );
 	my $body;
 	foreach my $word ( @body ) {
-		$body .= StemHR->stem( $word ) . ' ';
+#		$body .= StemHR->stem( $word ) . ' ';
+		$body .= join(" ",EPrints::slogovi( $word )) . ' ';
 	}
 
 	warn "body: $body\n" if $debug;