![[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.107, 2011/10/22 21:25:37 | version 1.108, 2011/10/22 23:09:44 |
|---|---|
| Line 168 sub URLToPath { | Line 168 sub URLToPath { |
| sub url { | sub url { |
| my $fn=shift; | my $fn=shift; |
| $fn=~s/^\/home\/($match_username)\/public\_html/\/priv\/$1/; | $fn=~s/^\/home\/httpd\/html//; |
| $fn=~s/\/\.\//\//g; | |
| $fn=&HTML::Entities::encode($fn,'<>"&'); | $fn=&HTML::Entities::encode($fn,'<>"&'); |
| return $fn; | return $fn; |
| } | } |