db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

version 1.58, 2002/01/13 00:32:12	version 1.59, 2002/01/14 11:31:43
Line 868 sub PrintTournament {	Line 868 sub PrintTournament {
"вопросы + ответы") . "]")	"вопросы + ответы") . "]")
);	);
} else {	} else {
$list .= dd(a({href=>url . "?tour=$textid&comp=1"},	$list .= dd(#a({href=>url . "?tour=$textid&comp=1"},
img({src=>'/icons/compressed.gif', alt=>'[ZIP]', border=>1}))	#img({src=>'/icons/compressed.gif', alt=>'[ZIP]', border=>1})). " " .
. " " . img({src=>$imgsrc, alt=>$alt})	img({src=>$imgsrc, alt=>$alt})
. " " . a({href=>url . "?tour=$textid&answer=0"},	. " " . a({href=>url . "?tour=$textid&answer=0"},
$Tournament{'Title'}. " ".	$Tournament{'Title'}. " ".
$Tournament{'PlayedAt'}) . $qnum);	$Tournament{'PlayedAt'}) . $qnum);
Line 1000 sub PrintTour {	Line 1000 sub PrintTour {
sub PrintField {	sub PrintField {
my ($header, $value, $text) = @_;	my ($header, $value, $text) = @_;
if ($text) {	if ($text) {
$value =~ s/<[\/\w]*>//sg;	$value =~ s/<[\/\w]*?>//sg;
} else {	} else {
$value =~ s/^\s+/<br>    /mg;	$value =~ s/^\s+/<br>    /mg;
$value =~ s/^\\|([^\n]*)/<pre>$1<\/pre>/mg;	$value =~ s/^\\|([^\n]*)/<pre>$1<\/pre>/mg;
	$value =~ s/\s+-+\s+/  /mg;
}	}


return $text ? "$header:\n$value\n\n" :	return $text ? "$header:\n$value\n\n" :
strong("$header: ") . $value . p . "\n";	strong("$header: ") . $value . p . "\n";
}	}