loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.267.4.1, 2002/08/30 19:09:27	version 1.267.4.3, 2002/08/30 20:33:58
Line 2720 sub metadata {	Line 2720 sub metadata {
# Look at timestamp of caching	# Look at timestamp of caching
# Everything is cached by the main uri, libraries are never directly cached	# 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?	# Is this a recursive call for a library?
#	#
Line 2833 sub metadata {	Line 2833 sub metadata {
# the next is the end of "start tag"	# the next is the end of "start tag"
}	}
}	}
&metadata_generate_part0(\%metathesekeys,\%metacache,$uri);
$metacache{$uri.':keys'}=join(',',keys %metathesekeys);	$metacache{$uri.':keys'}=join(',',keys %metathesekeys);
	&metadata_generate_part0(\%metathesekeys,\%metacache,$uri);
	$metacache{$uri.':allpossiblekeys'}=join(',',keys %metathesekeys);
$metacache{$uri.':cachedtimestamp'}=time;	$metacache{$uri.':cachedtimestamp'}=time;
# this is the end of "was not already recently cached	# this is the end of "was not already recently cached
}	}