--- db/prgsrc/db.cgi 2006/09/24 19:53:59 1.143 +++ db/prgsrc/db.cgi 2006/09/25 00:09:43 1.144 @@ -14,6 +14,7 @@ use Getopt::Std; eval {require "dbdefs.pl";} ; my $url=url||''; my @used_stop=(); +my $showNearQuestions=0; $dbuser||="piataev"; $dbname||="chgk"; $dbpass||=""; @@ -1507,9 +1508,9 @@ $output.="" $fname||=param('tour'); my $qid=$fname ? ($fname.".$Question{'Number'}" ): ''; - $output.=br.a({href=> $url."?metod=proxy& + $output.=br.a({href=> "/search/"."?metod=proxy& qid=$qid"}, 'Близкие вопросы').p - if $answer>0 && !$text && $qid; + if $answer>0 && !$text && $qid && $showNearQuestions; return $output; } @@ -2001,7 +2002,7 @@ MAIN: exit } - if ($tour && !param('qnumber') && (!param('answers')||(param('answers')<=1))) + if (0 && $tour && !param('qnumber') && (!param('answers')||(param('answers')<=1))) { my $n=param('tour'); $n=~s/.txt$//;