db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

version 1.143, 2006/09/24 19:53:59	version 1.144, 2006/09/25 00:09:43
Line 14 use Getopt::Std;	Line 14 use Getopt::Std;
eval {require "dbdefs.pl";} ;	eval {require "dbdefs.pl";} ;
my $url=url\|\|'';	my $url=url\|\|'';
my @used_stop=();	my @used_stop=();
	my $showNearQuestions=0;
$dbuser\|\|="piataev";	$dbuser\|\|="piataev";
$dbname\|\|="chgk";	$dbname\|\|="chgk";
$dbpass\|\|="";	$dbpass\|\|="";
Line 1507 $output.="</span>"	Line 1508 $output.="</span>"
$fname\|\|=param('tour');	$fname\|\|=param('tour');
my $qid=$fname ? ($fname.".$Question{'Number'}" ): '';	my $qid=$fname ? ($fname.".$Question{'Number'}" ): '';

$output.=br.a({href=> $url."?metod=proxy&	$output.=br.a({href=> "/search/"."?metod=proxy&
qid=$qid"}, 'Близкие вопросы').p	qid=$qid"}, 'Близкие вопросы').p
if $answer>0 && !$text && $qid;	if $answer>0 && !$text && $qid && $showNearQuestions;
return $output;	return $output;
}	}

Line 2001 MAIN:	Line 2002 MAIN:
exit	exit
}	}

if ($tour && !param('qnumber') && (!param('answers')\|\|(param('answers')<=1)))	if (0 && $tour && !param('qnumber') && (!param('answers')\|\|(param('answers')<=1)))
{	{
my $n=param('tour');	my $n=param('tour');
$n=~s/.txt$//;	$n=~s/.txt$//;