![[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.42, 2003/09/11 21:02:38 | version 1.43, 2003/11/08 10:48:33 |
|---|---|
| Line 168 sub url { | Line 168 sub url { |
| sub display { | sub display { |
| my $fn=shift; | my $fn=shift; |
| $fn=~s/^\/home\/(\w+)\/public\_html//; | $fn=~s-^/home/(\w+)/public_html-/priv/$1-; |
| return '<tt>'.$fn.'</tt>'; | return '<tt>'.$fn.'</tt>'; |
| } | } |