db/prgsrc/updateRS1.pl - diff

Return to updateRS1.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.7, 2002/06/15 03:43:48	version 1.8, 2002/06/15 03:46:31
Line 172 foreach $wordnumber(0..$#list)	Line 172 foreach $wordnumber(0..$#list)
$nfkvo{$nfnumber}++;	$nfkvo{$nfnumber}++;
$a=\$neww2k{$nfnumber};	$a=\$neww2k{$nfnumber};
my $r=packword($fieldnumber, $id,$wordnumber);	my $r=packword($fieldnumber, $id,$wordnumber);
print "$word !!$r!\n";
$$a.=$r;	$$a.=$r;
if (length $$a>100) {flushw2k($nfnumber)}	if (length $$a>100) {flushw2k($nfnumber)}
}	}
Line 181 print "$word !!$r!\n";	Line 180 print "$word !!$r!\n";
$nfnumber=addnf(0, $f, $flag,1);	$nfnumber=addnf(0, $f, $flag,1);
$newnf{uc $word}.=" $nfnumber";	$newnf{uc $word}.=" $nfnumber";
my $r=packword($fieldnumber, $id,$wordnumber);	my $r=packword($fieldnumber, $id,$wordnumber);
print "$word !!!$r!\n";
$neww2k{$nfnumber}.=$r;	$neww2k{$nfnumber}.=$r;
}	}
}	}