--- find4.pl	2002/02/15 16:31:06	1.2
+++ find4.pl	2002/06/19 10:58:59	1.3
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-# indexer, Dobrica Pavlinusic <dpavlin@rot13.org> 2001-01-28
+# indexer, Dobrica Pavlinusic <dpavlin@rot13.org> 2002-01-28
 # options:	-q quiet
 # 		-d debug
 # 		-v verbose
@@ -74,6 +74,7 @@
 			$naslov_czs =~ tr/¹©ðÐèÈæƾ®/sSdDcCcCzZ/;
 			$naslov_czs =~ tr/a-zA-Z/ /cs;	# non a-z  -> space
 			$naslov_czs = join(" ",$hr->alternatives(split(/ /,$naslov_czs)));
+#			$naslov_czs = $hr->minimal(split(/ /,$naslov_czs));
 			$sth->execute($br,$god,$nr,$aname,$naslov,$naslov_czs) || die $dbh->errstr();
 			$naslov="";
 			$nr=0;