loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.265, 2002/08/09 18:12:19	version 1.267.2.1, 2002/08/29 03:52:37
Line 820 sub flushcourselogs {	Line 820 sub flushcourselogs {
my $entry=$_;	my $entry=$_;
$entry=~/\_\_\_(\w+)\/(\w+)\/(.*)\_\_\_(\w+)$/;	$entry=~/\_\_\_(\w+)\/(\w+)\/(.*)\_\_\_(\w+)$/;
my %temphash=($entry => $accesshash{$entry});	my %temphash=($entry => $accesshash{$entry});
if (&Apache::lonnet::put('resevaldata',\%temphash,$1,$2) eq 'ok') {	if (&Apache::lonnet::put('nohist_resevaldata',\%temphash,$1,$2) eq 'ok') {
delete $accesshash{$entry};	delete $accesshash{$entry};
}	}
}	}
Line 1114 sub str2hashref {	Line 1114 sub str2hashref {
}	}
} else {	} else {
$string =~ s/^(.*?)=//;	$string =~ s/^(.*?)=//;
$key=$1	$key=&unescape($1);
}	}
$string =~ s/^=//;	$string =~ s/^=//;

Line 2831 sub metadata {	Line 2831 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
}	}