db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

version 1.3, 2000/10/17 12:17:15	version 1.5, 2000/10/19 23:04:46
Line 336 sub PrintTour {	Line 336 sub PrintTour {
my ($qnum) = $Tour{'QuestionsNum'};	my ($qnum) = $Tour{'QuestionsNum'};
my ($suffix) = &Suffix($qnum);	my ($suffix) = &Suffix($qnum);

$output .= h2({align=>"center"}, $Tour{"Title"} .	$output .= h2({align=>"center"}, $Tournament{"Title"},
	"<br>", $Tour{"Title"} .
" ($qnum вопрос$suffix)\n") . p;	" ($qnum вопрос$suffix)\n") . p;

my (@Questions) = &GetTourQuestions($dbh, $Id);	my (@Questions) = &GetTourQuestions($dbh, $Id);
Line 391 sub PrintTour {	Line 392 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 {
	$value =~ s/^\s+/<br>    /mg;
	$value =~ s/^\\|([^\n]*)/<pre>$1<\/pre>/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";