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.28, 2002/11/11 09:57:49
Line 58 my ($sth);	Line 58 my ($sth);

use DBI;	use DBI;
use strict;	use strict;
	my $isunsorted=0;
sub UpdateParents {	sub UpdateParents {
my ($dbh, $ParentId, $all_qnum) = @_;	my ($dbh, $ParentId, $all_qnum) = @_;
if ($ParentId) {	if ($ParentId) {
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 404 MAIN:	Line 405 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;
}	}