db/prgsrc/deletefiles.pl - diff

Return to deletefiles.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.2, 2001/07/28 17:23:02	version 1.3, 2001/07/28 21:19:06
Line 46 MAIN:	Line 46 MAIN:
select Id,ParentId,QuestionsNum from Tournaments	select Id,ParentId,QuestionsNum from Tournaments
where Type='þ' and FileName='$file'");	where Type='þ' and FileName='$file'");
$sth->execute;	$sth->execute;
	if (!$sth->rows) {
	print STDERR "File $file is not found in the database\n";
	next;
	}
while (my ($Id,$ParentId,$QuestionsNum) = $sth->fetchrow) {	while (my ($Id,$ParentId,$QuestionsNum) = $sth->fetchrow) {
print "Deleting $file Id=$Id, $QuestionsNum questions\n";	print STDERR "Deleting $file, Id=$Id, $QuestionsNum questions\n";
UpdateParents($dbh,$ParentId,$QuestionsNum);	UpdateParents($dbh,$ParentId,$QuestionsNum);
UpdateChildrenAndDie($dbh,$Id);	UpdateChildrenAndDie($dbh,$Id);
}	}