--- 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"}, 
+		      "<br>", $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+/<br>&nbsp;&nbsp;&nbsp;&nbsp;/mg;
+	    $value =~ s/^\|([^\n]*)/<pre>$1<\/pre>/mg;
 	}
 	return $text ? "$header:\n$value\n\n" : 
 		strong("$header: ") . $value . p . "\n";