--- db/prgsrc/writefile.pl	2002/01/15 03:34:31	1.2
+++ db/prgsrc/writefile.pl	2002/01/15 12:13:55	1.3
@@ -48,6 +48,8 @@ sub WriteFile {
 
   print OUT "Дата:\n".PrintDate($PlayedAt)."\n\n" if $PlayedAt;
 
+  print OUT "Обработан:\n$EnteredBy\n\n" if $EnteredBy;
+
 
   $query= "SELECT Id, Title, Copyright, Editors, PlayedAt from Tournaments where ParentId=$Id order by Id";
   $sth=$dbh->prepare($query);
@@ -65,7 +67,7 @@ sub WriteFile {
     $tourtitle{$tourid}=$tourtitle;
     $copyright{$tourid}=$cright;
     $editor{$tourid}=$editor;
-    $date{$tourid}=$date;
+    $date{$tourid}=$date if $date;
     $vid='';
     my $author='';
     my $eqauthor=1;
@@ -141,7 +143,7 @@ sub WriteFile {
      print OUT "Вид:\n$vid{$tour}\n\n" if  !$eqvid;
      print OUT "Копирайт:\n$copyright{$tour}\n\n" if $copyright{$tour} && ($copyright{$tour} ne $Copyright);
      print OUT "Редактор:\n$editor{$tour}\n\n" if $editor{$tour} && ($editor{$tour} ne $Editors);
-     print OUT "Дата:\n".PrintDate($date{$tour})."\n\n" if !$eqdate && $date{$tour} || !$PlayedAt;
+     print OUT "Дата:\n".PrintDate($date{$tour})."\n\n" if $date{$tour} && (!$eqdate  || !$PlayedAt);
      $tourauthor=0;
      if (!$eqauthor && $author{$tour})
      {