Return to lonpublisher.pm CVS log | Up to [LON-CAPA] / loncom / publisher |
version 1.39, 2001/08/17 16:27:08 | version 1.40, 2001/08/17 16:49:04 |
---|---|
Line 143 sub urlfixup { | Line 143 sub urlfixup { |
$url=~s/^$host//; | $url=~s/^$host//; |
} | } |
} values %Apache::lonnet::hostname; | } values %Apache::lonnet::hostname; |
if ($url=~/^http\:\/\//) { return $url; } | |
$url=~s/\~$cuname/res\/$cudom\/$cuname/; | $url=~s/\~$cuname/res\/$cudom\/$cuname/; |
if ($target) { | if ($target) { |
$target=~s/\/[^\/]+$//; | $target=~s/\/[^\/]+$//; |