db/prgsrc/updatedb.pl - diff

Return to updatedb.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.31, 2003/01/09 01:43:21	version 1.32, 2003/01/09 19:48:44
Line 144 sub SelectGroup {	Line 144 sub SelectGroup {
# Теперь, если файла нет в дереве турниров, никаких вопросов не	# Теперь, если файла нет в дереве турниров, никаких вопросов не
# задаётся, а вместо этого он добавляется в группу 9999	# задаётся, а вместо этого он добавляется в группу 9999
$ParentId = 9999;	$ParentId = 9999;
print UNSORTED "$source".((12 -length($source))x' ')."\t$TourName\n";	my $tempsource=$source;
	my $temptname=$TourName;
	$tempsource=~s/^\'(.*)\'$/$1;
	$temptname=~s/^\'(.*)\'$/$1;
	print UNSORTED "$tempsource".((12 -length($source))x' ')."\t$temptn\n";
$isunsorted=1;	$isunsorted=1;
$sth = $dbh->prepare("INSERT INTO Tournaments	$sth = $dbh->prepare("INSERT INTO Tournaments
(Title, Type, ParentId, FileName)	(Title, Type, ParentId, FileName)