![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to updateRS.pl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc|
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) #перебираем поля |
| { | { |