db/prgsrc/updatedb.pl - diff

Return to updatedb.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.26, 2002/11/11 09:06:23	version 1.27, 2002/11/11 09:43:20
Line 144 sub SelectGroup {	Line 144 sub SelectGroup {
# Теперь, если файла нет в дереве турниров, никаких вопросов не	# Теперь, если файла нет в дереве турниров, никаких вопросов не
# задаётся, а вместо этого он добавляется в группу 9999	# задаётся, а вместо этого он добавляется в группу 9999
$ParentId = 9999;	$ParentId = 9999;
print UNSORTED $source;	print UNSORTED "$source\n";
	$isunsorted=1;
$sth = $dbh->prepare("INSERT INTO Tournaments	$sth = $dbh->prepare("INSERT INTO Tournaments
(Title, Type, ParentId, FileName)	(Title, Type, ParentId, FileName)
VALUES ($TourName, 'Ч', $ParentId,	VALUES ($TourName, 'Ч', $ParentId,
Line 264 MAIN:	Line 265 MAIN:


my($source);	my($source);
	my $isunsorted=0;

my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "")	my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "")
or die "Can't connect to DB chgk\n";	or die "Can't connect to DB chgk\n";
Line 404 MAIN:	Line 406 MAIN:
&UpdateParents($dbh, $ParentId, $all_qnum);	&UpdateParents($dbh, $ParentId, $all_qnum);
print STDERR "Всего вопросов: $all_qnum \n";	print STDERR "Всего вопросов: $all_qnum \n";
}	}
	close UNSORTED;
	unlink "unsorted" unless $isunsorted;
$dbh->disconnect;	$dbh->disconnect;
}	}