--- loncom/lonnet/perl/lonnet.pm 2005/10/14 19:08:42 1.664 +++ loncom/lonnet/perl/lonnet.pm 2005/10/18 21:27:46 1.665 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.664 2005/10/14 19:08:42 albertel Exp $ +# $Id: lonnet.pm,v 1.665 2005/10/18 21:27:46 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3076,9 +3076,10 @@ sub allowed { $thisallowed.=$1; } -# URI is an uploaded document for this course +# URI is an uploaded document for this course, default permissions don't matter # not allowing 'edit' access (editupload) to uploaded course docs if (($priv eq 'bre') && ($uri=~m|^uploaded/|)) { + $thisallowed=''; my $refuri=$env{'httpref.'.$orguri}; if ($refuri) { if ($refuri =~ m|^/adm/|) {