Return to updateRS.pl CVS log | Up to [Local Repository] / db / prgsrc |
version 1.3, 2001/11/01 01:45:00 | version 1.4, 2002/06/15 02:55:01 |
---|---|
Line 91 print "Getting words...\n"; | Line 91 print "Getting words...\n"; |
$sch=0; | $sch=0; |
while ((++$sch<=$qlimit) && (($id, @ss) = getrow, $id)) | while ((++$sch<=$qlimit) && (($id, @ss) = getrow, $id)) |
{ | { |
if ($forbidden{$id}) {next}; | # if ($forbidden{$id}) {next}; |
print "\n$id "; | print "\n$id "; |
foreach $fieldnumber (0..$#ss) #перебираем поля | foreach $fieldnumber (0..$#ss) #перебираем поля |
{ | { |