version 1.144, 2006/09/25 00:09:43
|
version 1.145, 2006/09/30 22:16:48
|
Line 280 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 288 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 { |