--- db/prgsrc/updateRS2.pl	2001/12/13 00:01:58	1.1
+++ db/prgsrc/updateRS2.pl	2004/08/28 23:47:41	1.3
@@ -42,9 +42,11 @@ use lib "../lib";
 use chgkfiles;
 use Tie::Hash;
 use dbchgk;
-open (STDERR,">errors");
+
+my $DUMPDIR = $ENV{DUMPDIR} || "../dump";
+open (STDERR,">$DUMPDIR/errors");
 my $initime=time;
-open TIME, ">time"; 
+open TIME, ">$DUMPDIR/time"; 
 do "common.pl";
 do "chgk.cnf";
 
@@ -83,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");
 
 
 
@@ -128,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)) 
                              # берём по одному вопросу