--- db/prgsrc/updatedb.pl	2000/10/19 03:28:25	1.8
+++ db/prgsrc/updatedb.pl	2000/10/20 00:39:27	1.9
@@ -22,7 +22,7 @@ The database, user and password are hard
 
 Dmitry Rubinstein
 
-=head1 $Id: updatedb.pl,v 1.8 2000/10/19 03:28:25 boris Exp $
+=head1 $Id: updatedb.pl,v 1.9 2000/10/20 00:39:27 boris Exp $
 
 =cut
 
@@ -70,7 +70,7 @@ sub getField {
 	    chomp $key;
 	    if ($key eq 'δΑΤΑ') {
 		$value =~ s/^(.*)-(.*)-(.*)$/$3-$2-$1/;
-		my($month) = $RevMonths{$2};
+		my($month) = $RevMonths{$2} || '000';
 		$value =~ s/$2/$month/;
 	    }
 	    $value = $dbh->quote($value);
@@ -174,6 +174,7 @@ sub DeleteTournament {
     if($DeleteMyself) {
 	$sth = $dbh->prepare("DELETE FROM Tournaments
                              WHERE Id=$Id");
+	$sth->execute or die $dbh->errstr;
     }
 }