db/prgsrc/checkPBS.pl - diff

Return to checkPBS.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.3, 2001/11/01 01:44:59	version 1.4, 2002/01/13 00:32:12
Line 26 getword2question;	Line 26 getword2question;
while (($word,$blob)=getrow,$word)	while (($word,$blob)=getrow,$word)
{	{
print "$sch...\n" unless (++$sch%100);	print "$sch...\n" unless (++$sch%100);
$is{unpack("S",$_)}=1 foreach $blob=~/.(..)./sg;	$is{unpack("L",$_) & 0xFFFFF}=1 foreach $blob=~/(...)./sg;
}	}

mydo ("UPDATE Questions SET ProcessedBySearch=1 where QuestionId=$_")	mydo ("UPDATE Questions SET ProcessedBySearch=1 where QuestionId=$_")