--- loncom/publisher/loncfile.pm 2011/03/01 01:36:55 1.106 +++ loncom/publisher/loncfile.pm 2011/10/22 23:09:44 1.108 @@ -9,7 +9,7 @@ # and displays a page showing the results of the action. # # -# $Id: loncfile.pm,v 1.106 2011/03/01 01:36:55 raeburn Exp $ +# $Id: loncfile.pm,v 1.108 2011/10/22 23:09:44 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -168,14 +168,16 @@ sub URLToPath { sub url { 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,'<>"&'); return $fn; } sub display { my $fn=shift; - $fn=~s-^/home/($match_username)/public_html-/priv/$1-; + $fn=~s/^\/home\/httpd\/html//; + $fn=~s/\/\.\//\//g; return ''.$fn.''; }