![[BACK]](/icons/back.gif){kind=icon}
Return to lonpublisher.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher|
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/\/[^\/]+$//; |