db/prgsrc/updatedb.pl - diff

Return to updatedb.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.11, 2000/10/20 03:18:38	version 1.12, 2000/10/22 02:25:02
Line 78 sub getField {	Line 78 sub getField {
}	}
next if (/^\s*$/);	next if (/^\s*$/);

if (/^(.)[:\.][\s]$/ && !$key) {	if (s/^(.?)[:\.]\s// && !$key) {
$key = $1;	$key = $1;
	$value=$_;
next;	next;
}	}
if ($key) {	if ($key) {
Line 169 sub DeleteTournament {	Line 170 sub DeleteTournament {
}	}
my (@Tours) = &GetTours($dbh, $Id);	my (@Tours) = &GetTours($dbh, $Id);
foreach my $Tour (@Tours) {	foreach my $Tour (@Tours) {
DeleteTournament($dbh,$Tour,1);	DeleteTournament($dbh,$Tour,$Id,0,1);
}	}
my $sth = $dbh->prepare("DELETE FROM Questions	my $sth = $dbh->prepare("DELETE FROM Questions
WHERE ParentId=$Id");	WHERE ParentId=$Id");