--- db/prgsrc/updateRS3.pl 2001/12/25 04:05:46 1.2 +++ db/prgsrc/updateRS3.pl 2002/12/08 01:04:22 1.3 @@ -62,6 +62,12 @@ do "chgk.cnf"; use DB_File; +$stopslovo{'÷'}=1; +$stopslovo{'ó'}=1; +$stopslovo{'éú'}=1; +$stopslovo{'îá'}=1; +$stopslovo{'é'}=1; +$stopslovo{'ë'}=1; $qlimit=shift||500; @@ -174,6 +180,7 @@ foreach $wordnumber(0..$#list) { $word=uc $list[$wordnumber]; next if length $word>$maxwsize; + next if $stopslovo{$word}; if (my $n=$nf{$word}||$newnf{$word}) { @n= split ' ',$n;