--- loncom/lonnet/perl/lonnet.pm 2003/09/25 19:47:13 1.422 +++ loncom/lonnet/perl/lonnet.pm 2003/09/25 20:02:54 1.423 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.422 2003/09/25 19:47:13 albertel Exp $ +# $Id: lonnet.pm,v 1.423 2003/09/25 20:02:54 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3629,11 +3629,11 @@ sub add_prefix_and_part { sub metadata { my ($uri,$what,$liburi,$prefix,$depthcount)=@_; - $uri=&declutter($uri); # if it is a non metadata possible uri return quickly if (($uri eq '') || (($uri =~ m|^/*adm/|) && ($uri !~ m|^adm/includes|)) || - ($uri =~ m|/$|) || ($uri =~ m|/.meta$|) || ($uri =~ /^~/)) { + ($uri =~ m|/$|) || ($uri =~ m|/.meta$|) || ($uri =~ /^~/) || + ($uri =~ m|home/[^/]+/public_html/|)) { return ''; } my $filename=$uri;