loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.276, 2002/08/30 18:36:03	version 1.278, 2002/09/05 19:37:00
Line 2341 sub createcourse {	Line 2341 sub createcourse {
unless ($nonstandard) {	unless ($nonstandard) {
# ------------------------------------------ For standard courses, make top url	# ------------------------------------------ For standard courses, make top url
my $mapurl=&clutter($url);	my $mapurl=&clutter($url);
	if ($mapurl eq '/res/') { $mapurl=''; }
$ENV{'form.initmap'}=(<<ENDINITMAP);	$ENV{'form.initmap'}=(<<ENDINITMAP);
<map>	<map>
<resource id="1" type="start"></resource>	<resource id="1" type="start"></resource>
Line 2774 sub metadata {	Line 2775 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?
#	#