--- loncom/lonnet/perl/lonnet.pm 2006/08/30 16:49:36 1.774 +++ loncom/lonnet/perl/lonnet.pm 2006/08/30 21:48:54 1.775 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.774 2006/08/30 16:49:36 banghart Exp $ +# $Id: lonnet.pm,v 1.775 2006/08/30 21:48:54 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3474,7 +3474,7 @@ sub allowed { if (defined($env{'allowed.'.$priv})) { return $env{'allowed.'.$priv}; } # Free bre access to adm and meta resources - if (((($uri=~/^adm\//) && ($uri !~ m|/bulletinboard$|)) + if (((($uri=~/^adm\//) && ($uri !~ m{/(?:smppg|bulletinboard)$})) || (($uri=~/\.meta$/) && ($uri!~m|^uploaded/|) )) && ($priv eq 'bre')) { return 'F';