version 1.8, 2000/10/19 03:28:25
|
version 1.9, 2000/10/20 00:39:27
|
Line 70 sub getField {
|
Line 70 sub getField {
|
chomp $key; |
chomp $key; |
if ($key eq 'δΑΤΑ') { |
if ($key eq 'δΑΤΑ') { |
$value =~ s/^(.*)-(.*)-(.*)$/$3-$2-$1/; |
$value =~ s/^(.*)-(.*)-(.*)$/$3-$2-$1/; |
my($month) = $RevMonths{$2}; |
my($month) = $RevMonths{$2} || '000'; |
$value =~ s/$2/$month/; |
$value =~ s/$2/$month/; |
} |
} |
$value = $dbh->quote($value); |
$value = $dbh->quote($value); |
Line 174 sub DeleteTournament {
|
Line 174 sub DeleteTournament {
|
if($DeleteMyself) { |
if($DeleteMyself) { |
$sth = $dbh->prepare("DELETE FROM Tournaments |
$sth = $dbh->prepare("DELETE FROM Tournaments |
WHERE Id=$Id"); |
WHERE Id=$Id"); |
|
$sth->execute or die $dbh->errstr; |
} |
} |
} |
} |
|
|