version 1.2, 2003/02/13 16:27:32
|
version 1.3, 2004/08/28 23:47:41
|
Line 85 my $nf;
|
Line 85 my $nf;
|
|
|
if ((uc 'а') ne 'А') {die "!Koi8-r locale not installed!\n"}; |
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"); |
|
|
|
|
|
|
Line 130 tie %nf, 'NewStdHash';
|
Line 130 tie %nf, 'NewStdHash';
|
|
|
print "Getting words...\n"; |
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; |
$sch=0; |
while ((++$sch<=$qlimit) && (($id, @ss) = getrow, $id)) |
while ((++$sch<=$qlimit) && (($id, @ss) = getrow, $id)) |
# берём по одному вопросу |
# берём по одному вопросу |