|
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 { |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to db.cgi CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc