![[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.106, 2011/03/01 01:36:55 | version 1.107, 2011/10/22 21:25:37 |
|---|---|
| Line 175 sub url { | Line 175 sub url { |
| sub display { | sub display { |
| my $fn=shift; | my $fn=shift; |
| $fn=~s-^/home/($match_username)/public_html-/priv/$1-; | $fn=~s/^\/home\/httpd\/html//; |
| $fn=~s/\/\.\//\//g; | |
| return '<span class="LC_filename">'.$fn.'</span>'; | return '<span class="LC_filename">'.$fn.'</span>'; |
| } | } |