--- db/prgsrc/db.cgi	2004/03/17 10:26:31	1.132
+++ db/prgsrc/db.cgi	2004/03/17 10:59:16	1.133
@@ -1334,6 +1334,7 @@ sub PrintField {
 sub PrintQuestion {
 	my ($dbh, $Id, $answer, $qnum, $title, $text,$h) = @_;
 	my ($output, $titles) = ('', '');
+	my $fname;
 	my (%Question);
 	if ($h) {
 	  %Question=%$Id;
@@ -1355,7 +1356,7 @@ sub PrintQuestion {
 	if (!$text) {
 		$output .= hr({width=>"50%"}) if $answer>=0;
 		if ($title) {
-			my $fname=$Question{'FileName'};
+			$fname=$Question{'FileName'};
 			$fname=~s/\.txt//;
 			$titles .=
 				dd(img({src=>"/icons/folder.open.gif"}) . " " .
@@ -1461,7 +1462,9 @@ $output.="</span>"
 	}
 	$output=~s/\(pic: ([^\)]*)\)/<p><img src="\/znatoki\/images\/db\/$1"><p>/g unless $text;
 	$paramtour||=param("tour");
-	my $qid=$paramtour ? ($paramtour.".$Question{'Number'}" ): '';
+	$fname=$fname.".$Question{'TourNumber'}" if $fname && $Question{'TourNumber'};
+$fname||=param('tour');
+	my $qid=$fname ? ($fname.".$Question{'Number'}" ): '';
 
 	$output.=br.a({href=> $url."?metod=proxy&
 qid=$qid"}, 'Близкие вопросы').p