--- db/prgsrc/updateRS2.pl 2003/02/13 16:27:32 1.2 +++ db/prgsrc/updateRS2.pl 2004/08/28 23:47:41 1.3 @@ -85,7 +85,7 @@ my $nf; if ((uc 'а') ne 'А') {die "!Koi8-r locale not installed!\n"}; -getquestions(QuestionId, Question, Answer, Comments, Authors, Sources,"ProcessedBySearch IS NULL"); +getquestions(QuestionId, Question, Answer, PassCriteria, Comments, Authors, Sources,"ProcessedBySearch IS NULL"); @@ -130,7 +130,7 @@ tie %nf, 'NewStdHash'; print "Getting words...\n"; -getquestions(QuestionId, Question, Answer, Comments, Authors, Sources,"ProcessedBySearch IS NULL"); +getquestions(QuestionId, Question, Answer, PassCriteria, Comments, Authors, Sources,"ProcessedBySearch IS NULL"); $sch=0; while ((++$sch<=$qlimit) && (($id, @ss) = getrow, $id)) # берём по одному вопросу