db/prgsrc/updateRS.pl - diff

Return to updateRS.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.2, 2001/10/31 03:07:29	version 1.4, 2002/06/15 02:55:01
Line 33 ProcessedBySearch устанавливается в 1. О	Line 33 ProcessedBySearch устанавливается в 1. О
use locale;	use locale;
use DBI;	use DBI;
use POSIX qw (locale_h);	use POSIX qw (locale_h);
	use lib "../lib";
use chgkfiles;	use chgkfiles;
use dbchgk;	use dbchgk;


do "common.pl";	do "common.pl";
do "chgk.cnf";	do "chgk.cnf";
require "check.pl";	require "check.pl";

open (STDERR,">$stderr") if $stderr;	open (STDERR,">$stderr") if $stderr;

Line 90 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) #перебираем поля
{	{