![[BACK]](/icons/back.gif){kind=icon}
Return to loncfile.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher|
Return to loncfile.pm CVS log | Up to [LON-CAPA] / loncom / publisher |
| version 1.109, 2011/10/23 01:27:34 | version 1.110, 2011/10/23 23:46:07 |
|---|---|
| Line 161 sub URLToPath { | Line 161 sub URLToPath { |
| $Url=~ s/\/+/\//g; | $Url=~ s/\/+/\//g; |
| $Url=~ s/^https?\:\/\/[^\/]+//; | $Url=~ s/^https?\:\/\/[^\/]+//; |
| $Url=~ s/^\///; | $Url=~ s/^\///; |
| $Url=~ s/(\~|priv\/)($match_username)\//\/home\/$2\/public_html\//; | $Url='/home/httpd/html/'.$Url; |
| &Debug($r, "Returning $Url \n"); | &Debug($r, "Returning $Url \n"); |
| return $Url; | return $Url; |
| } | } |