--- db/prgsrc/db.cgi	2000/10/15 22:22:26	1.2
+++ db/prgsrc/db.cgi	2000/10/19 23:04:46	1.5
@@ -8,14 +8,17 @@ use POSIX qw(locale_h);
 
 my ($PWD) = `pwd`;
 chomp $PWD;
-my ($SRCPATH) = "/home/stepanov/baza";
+my ($SRCPATH) = "$PWD/../dimrub/src";
 my ($ZIP) = "/usr/bin/zip";
 my ($SENDMAIL) = "/usr/sbin/sendmail";
 my ($TMSECS) = 30*24*60*60;
 my (%RevMonths) = 
 	('Jan', '0', 'Feb', '1', 'Mar', '2', 'Apr', '3', 'May', '4', 'Jun', '5',
 	'Jul', '6', 'Aug', '7', 'Sep', '8', 'Oct', '9', 'Nov', '10',
-	'Dec', '11');
+	'Dec', '11',
+	 'Янв', '0', 'Фев', 1, 'Мар', 2, 'Апр', 3, 'Май', '4',
+	 'Июн', '5', 'Июл', 6, 'Авг', '7', 'Сен', '8', 
+	 'Окт', '9', 'Ноя', '19', 'Дек', '11');
 
 # Determine whether the given time is within 2 months from now.
 sub NewEnough {
@@ -333,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);
@@ -388,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";