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>'; |
} | } |