--- db/prgsrc/updatedb.pl	2006/09/25 00:09:43	1.42
+++ db/prgsrc/updatedb.pl	2008/11/14 11:23:03	1.43
@@ -28,7 +28,7 @@ The database, user and password are hard
 
 Dmitry Rubinstein
 
-=head1 $Id: updatedb.pl,v 1.42 2006/09/25 00:09:43 roma7 Exp $
+=head1 $Id: updatedb.pl,v 1.43 2008/11/14 11:23:03 roma7 Exp $
 
 =cut
 
@@ -156,9 +156,9 @@ sub SelectGroup {
 	   	print UNSORTED "$tempsource".((12 -length($source))x' ')."\t$temptname\n";
 		$isunsorted=1;
 		$sth = $dbh->prepare("INSERT INTO Tournaments
-			      (Title, Type, ParentId, FileName) 
+			      (Title, Type, ParentId, FileName,CreatedAt) 
 			       VALUES ($TourName, 'þ', $ParentId, 
-                                       $source)");
+                                       $source,NOW())");
                 $sth->execute;
 		my $TournamentId = $sth->{mysql_insertid};
 		return ($TournamentId,$ParentId);
@@ -246,8 +246,8 @@ sub GetTours {
 sub CreateTour {
     my ($dbh,$title,$ParentId,$TourNum,$rh_defaults)=@_;
     my $sth = $dbh->prepare("INSERT INTO Tournaments
-			     (Title, Type, ParentId, Number) 
-			     VALUES ($title, 'ô', $ParentId, $TourNum)");
+			     (Title, Type, ParentId, Number,CreatedAt) 
+			     VALUES ($title, 'ô', $ParentId, $TourNum,NOW())");
     $sth->execute;
     my $TourId = $sth->{mysql_insertid};
     while (my ($key,$value)=each %$rh_defaults) {