loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.173, 2001/11/20 17:58:05	version 1.174, 2001/11/20 22:30:20
Line 2242 sub metadata {	Line 2242 sub metadata {
# If "keys" are set, the assumption is that everything is already cached.	# If "keys" are set, the assumption is that everything is already cached.
# 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 ($metacache{$uri.':keys'}) {	unless (abs($metacache{$uri.':cachedtimestamp'}-time)<600) {
#	#
# Is this a recursive call for a library?	# Is this a recursive call for a library?
#	#
Line 2341 sub metadata {	Line 2341 sub metadata {
}	}
}	}
$metacache{$uri.':keys'}=join(',',keys %metathesekeys);	$metacache{$uri.':keys'}=join(',',keys %metathesekeys);
	$metacache{$uri.':cachedtimestamp'}=time;
}	}
return $metacache{$uri.':'.$what};	return $metacache{$uri.':'.$what};
}	}