version 1.143, 2006/09/24 19:53:59
|
version 1.145, 2006/09/30 22:16:48
|
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 279 sub tourhref {
|
Line 280 sub tourhref {
|
my $res; |
my $res; |
if ($usehtml) { |
if ($usehtml) { |
$res=$t; |
$res=$t; |
|
$res=~s/\-q$//; |
|
$res=~s/\-a$//; |
$res.=$a?"-a":"-q" unless $gr; |
$res.=$a?"-a":"-q" unless $gr; |
$res.=".html"; |
$res.=".html"; |
$res=~s/(\#\d+)(.*)$/$2$1/; |
$res=~s/(\#\d+)(.*)$/$2$1/; |
Line 287 sub tourhref {
|
Line 290 sub tourhref {
|
$res=~s/\.1// unless -e "$realHTMLDIR$t"; |
$res=~s/\.1// unless -e "$realHTMLDIR$t"; |
$t=$res; |
$t=$res; |
$t=~s/\#.*$//; |
$t=~s/\#.*$//; |
$res=~s/\.html/-q\.html/ unless -e "$realHTMLDIR$t"; |
# $res=~s/\.html/-q\.html/ unless -e "$realHTMLDIR$t"; |
$res="$HTMLDIR$res" unless $opt_z; |
$res="$HTMLDIR$res" unless $opt_z; |
return $res; |
return $res; |
} else { |
} else { |
Line 1507 $output.="</span>"
|
Line 1510 $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 2004 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$//; |