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"); |