db/prgsrc/writefile.pl - diff

Return to writefile.pl CVS log

Up to [Local Repository] / db / prgsrc

Diff for /db/prgsrc/writefile.pl between versions 1.2 and 1.3

version 1.2, 2002/01/15 03:34:31	version 1.3, 2002/01/15 12:13:55
Line 48 sub WriteFile {	Line 48 sub WriteFile {

print OUT "Дата:\n".PrintDate($PlayedAt)."\n\n" if $PlayedAt;	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";	$query= "SELECT Id, Title, Copyright, Editors, PlayedAt from Tournaments where ParentId=$Id order by Id";
$sth=$dbh->prepare($query);	$sth=$dbh->prepare($query);
Line 65 sub WriteFile {	Line 67 sub WriteFile {
$tourtitle{$tourid}=$tourtitle;	$tourtitle{$tourid}=$tourtitle;
$copyright{$tourid}=$cright;	$copyright{$tourid}=$cright;
$editor{$tourid}=$editor;	$editor{$tourid}=$editor;
$date{$tourid}=$date;	$date{$tourid}=$date if $date;
$vid='';	$vid='';
my $author='';	my $author='';
my $eqauthor=1;	my $eqauthor=1;
Line 141 sub WriteFile {	Line 143 sub WriteFile {
print OUT "Вид:\n$vid{$tour}\n\n" if !$eqvid;	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$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$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;	$tourauthor=0;
if (!$eqauthor && $author{$tour})	if (!$eqauthor && $author{$tour})
{	{

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.2
changed lines
	Added in v.1.3