--- loncom/lonnet/perl/lonnet.pm 2003/08/13 18:45:02 1.400 +++ loncom/lonnet/perl/lonnet.pm 2003/08/14 22:26:40 1.402 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.400 2003/08/13 18:45:02 www Exp $ +# $Id: lonnet.pm,v 1.402 2003/08/14 22:26:40 bowersj2 Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2256,6 +2256,9 @@ sub customaccess { $access=($effect eq 'allow'); last; } + if ($realm eq '' && $role eq '') { + $access=($effect eq 'allow'); + } } return $access; } @@ -3554,14 +3557,15 @@ sub metadata { if ($liburi) { $liburi=&declutter($liburi); $filename=$liburi; - } + } else { + delete($metacache{$uri.':packages'}); + } my %metathesekeys=(); unless ($filename=~/\.meta$/) { $filename.='.meta'; } my $metastring=&getfile(&filelocation('',&clutter($filename))); my $parser=HTML::LCParser->new(\$metastring); my $token; undef %metathesekeys; - delete($metacache{$uri.':packages'}); while ($token=$parser->get_token) { if ($token->[0] eq 'S') { if (defined($token->[2]->{'package'})) {