loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.523.2.5, 2004/09/20 20:14:14	version 1.523.2.6, 2004/09/20 21:10:00
Line 873 sub is_cached {	Line 873 sub is_cached {
# &logthis("Upping $mtime - ".$$cache{$id.'.time'}.	# &logthis("Upping $mtime - ".$$cache{$id.'.time'}.
# "$id because of $filename");	# "$id because of $filename");
} else {	} else {
&logthis("Devalidating $filename $id - ".(time-($$cache{$id.'.time'})));	# &logthis("Devalidating $filename $id - ".(time-($$cache{$id.'.time'})));
&devalidate_cache($cache,$id,$name);	&devalidate_cache($cache,$id,$name);
return (undef,undef);	return (undef,undef);
}	}