--- loncom/lonnet/perl/lonnet.pm 2002/08/30 18:36:03 1.276 +++ loncom/lonnet/perl/lonnet.pm 2002/09/05 19:37:00 1.278 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.276 2002/08/30 18:36:03 albertel Exp $ +# $Id: lonnet.pm,v 1.278 2002/09/05 19:37:00 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2341,6 +2341,7 @@ sub createcourse { unless ($nonstandard) { # ------------------------------------------ For standard courses, make top url my $mapurl=&clutter($url); + if ($mapurl eq '/res/') { $mapurl=''; } $ENV{'form.initmap'}=(< @@ -2774,7 +2775,7 @@ sub metadata { # Look at timestamp of caching # Everything is cached by the main uri, libraries are never directly cached # - unless (abs($metacache{$uri.':cachedtimestamp'}-time)<600) { + unless (abs($metacache{$uri.':cachedtimestamp'}-time)<600 && !defined($liburi)) { # # Is this a recursive call for a library? #