--- loncom/lonnet/perl/lonnet.pm 2002/08/30 19:09:27 1.267.4.1 +++ loncom/lonnet/perl/lonnet.pm 2002/08/30 20:33:58 1.267.4.3 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.267.4.1 2002/08/30 19:09:27 albertel Exp $ +# $Id: lonnet.pm,v 1.267.4.3 2002/08/30 20:33:58 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2720,7 +2720,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? # @@ -2833,8 +2833,9 @@ sub metadata { # the next is the end of "start tag" } } - &metadata_generate_part0(\%metathesekeys,\%metacache,$uri); $metacache{$uri.':keys'}=join(',',keys %metathesekeys); + &metadata_generate_part0(\%metathesekeys,\%metacache,$uri); + $metacache{$uri.':allpossiblekeys'}=join(',',keys %metathesekeys); $metacache{$uri.':cachedtimestamp'}=time; # this is the end of "was not already recently cached }