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"; |