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