db/prgsrc/updateRS2.pl - diff

Return to updateRS2.pl CVS log

Up to [Local Repository] / db / prgsrc

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))
# берём по одному вопросу	# берём по одному вопросу