--- loncom/lonnet/perl/lonnet.pm 2007/09/05 17:37:51 1.910 +++ loncom/lonnet/perl/lonnet.pm 2007/09/25 00:26:20 1.910.2.1 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.910 2007/09/05 17:37:51 albertel Exp $ +# $Id: lonnet.pm,v 1.910.2.1 2007/09/25 00:26:20 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -7735,6 +7735,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; }