|
version 1.461, 2004/01/13 16:29:41
|
version 1.462, 2004/01/13 16:33:37
|
|
Line 4474 sub hreflocation {
|
Line 4474 sub hreflocation {
|
| unless (($file=~m-^http://-i) || ($file=~m-^/-)) { |
unless (($file=~m-^http://-i) || ($file=~m-^/-)) { |
| my $finalpath=filelocation($dir,$file); |
my $finalpath=filelocation($dir,$file); |
| $finalpath=~s-^/home/httpd/html--; |
$finalpath=~s-^/home/httpd/html--; |
| $finalpath=~s-/home/(\w+)/public_html/-/~$1/-; |
$finalpath=~s-^/home/(\w+)/public_html/-/~$1/-; |
| return $finalpath; |
return $finalpath; |
| } elsif ($file=~m-^/home-) { |
} elsif ($file=~m-^/home-) { |
| $file=~s-^/home/httpd/html--; |
$file=~s-^/home/httpd/html--; |
| $file=~s-/home/(\w+)/public_html/-/~$1/-; |
$file=~s-^/home/(\w+)/public_html/-/~$1/-; |
| return $file; |
return $file; |
| } |
} |
| |
return $file; |
| } |
} |
| |
|
| # ------------------------------------------------------------- Declutters URLs |
# ------------------------------------------------------------- Declutters URLs |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl