--- db/prgsrc/db.cgi 2000/10/17 12:17:15 1.3
+++ db/prgsrc/db.cgi 2000/10/19 23:04:46 1.5
@@ -336,7 +336,8 @@ sub PrintTour {
my ($qnum) = $Tour{'QuestionsNum'};
my ($suffix) = &Suffix($qnum);
- $output .= h2({align=>"center"}, $Tour{"Title"} .
+ $output .= h2({align=>"center"}, $Tournament{"Title"},
+ "
", $Tour{"Title"} .
" ($qnum вопрос$suffix)\n") . p;
my (@Questions) = &GetTourQuestions($dbh, $Id);
@@ -391,7 +392,10 @@ sub PrintTour {
sub PrintField {
my ($header, $value, $text) = @_;
if ($text) {
- $value =~ s/<[\/\w]*>//sg;
+ $value =~ s/<[\/\w]*>//sg;
+ } else {
+ $value =~ s/^\s+/
/mg;
+ $value =~ s/^\|([^\n]*)/
$1<\/pre>/mg; } return $text ? "$header:\n$value\n\n" : strong("$header: ") . $value . p . "\n";