db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

version 1.146, 2008/02/09 10:40:59	version 1.148, 2008/06/15 07:16:42
Line 1302 sub PrintTour {	Line 1302 sub PrintTour {
if ($Tournament{'Info'}) {	if ($Tournament{'Info'}) {
$output .= p($Tournament{'Info'});	$output .= p($Tournament{'Info'});
}	}

	if ($Tour{'Info'}) {
	$output .= p($Tour{'Info'});
	}


$output.=p("<a href='/dbxml.php?tour=".param('tour')."'>XML</a>");	$output.=p("<a href='/dbxml.php?tour=".param('tour')."'>XML</a>");

my $n=$Tour{'Number'};	my $n=$Tour{'Number'};
Line 1998 MAIN:	Line 2004 MAIN:
print end_html;	print end_html;
die "Can't connect to DB chgk\n";	die "Can't connect to DB chgk\n";
};	};
	$dbh->do("set names koi8r");

if (param('qid') && (param('qid')=~/^\d+$/) \|\| $tour && $tour=~/^\d+$/) {	if (param('qid') && (param('qid')=~/^\d+$/) \|\| $tour && $tour=~/^\d+$/) {
# my $destination='http://chgk.zaba.ru/search.html';	# my $destination='http://chgk.zaba.ru/search.html';