--- db/prgsrc/updatedb.pl	2000/10/20 03:18:38	1.11
+++ db/prgsrc/updatedb.pl	2000/10/22 02:25:02	1.12
@@ -22,7 +22,7 @@ The database, user and password are hard
 
 Dmitry Rubinstein
 
-=head1 $Id: updatedb.pl,v 1.11 2000/10/20 03:18:38 boris Exp $
+=head1 $Id: updatedb.pl,v 1.12 2000/10/22 02:25:02 boris Exp $
 
 =cut
 
@@ -78,8 +78,9 @@ sub getField {
 	}
 	next if (/^\s*$/);
 	
-	if (/^(.*)[:\.][\s]*$/ && !$key) {
+	if (s/^(.*?)[:\.]\s*// && !$key) {
 	    $key = $1;
+	    $value=$_;
 	    next;
 	}
 	if ($key) {
@@ -169,7 +170,7 @@ sub DeleteTournament {
     }
     my (@Tours) = &GetTours($dbh, $Id);
     foreach my $Tour (@Tours) {
-	DeleteTournament($dbh,$Tour,1);
+	DeleteTournament($dbh,$Tour,$Id,0,1);
     }
     my $sth = $dbh->prepare("DELETE FROM Questions
                              WHERE ParentId=$Id");