--- loncom/lonnet/perl/lonnet.pm 2007/09/12 20:29:16 1.912 +++ loncom/lonnet/perl/lonnet.pm 2007/09/25 00:21:12 1.913 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.912 2007/09/12 20:29:16 raeburn Exp $ +# $Id: lonnet.pm,v 1.913 2007/09/25 00:21:12 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -7832,6 +7832,9 @@ sub hreflocation { $file=~s-^/home/httpd/lonUsers/($match_domain)/./././($match_name)/userfiles/ -/uploaded/$1/$2/-x; } + if ($file=~ m{^/userfiles/}) { + $file =~ s{^/userfiles/}{/uploaded/}; + } return $file; }