rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

version 1.92, 2005/06/08 18:49:38	version 1.93, 2005/06/29 11:57:17
Line 73 sub versiontrack {	Line 73 sub versiontrack {

sub putinversion {	sub putinversion {
my $uri=shift;	my $uri=shift;
	my $key=$env{'request.course.id'}.'_'.&Apache::lonnet::clutter($uri);
if ($hash{'version_'.$uri}) {	if ($hash{'version_'.$uri}) {
my $version=$hash{'version_'.$uri};	my $version=$hash{'version_'.$uri};
if ($version eq 'mostrecent') { return $uri; }	if ($version eq 'mostrecent') { return $uri; }
Line 81 sub putinversion {	Line 82 sub putinversion {
{ return $uri; }	{ return $uri; }
$uri=~s/\.(\w+)$/\.$version\.$1/;	$uri=~s/\.(\w+)$/\.$version\.$1/;
}	}
	&Apache::lonnet::do_cache_new('courseresversion',$key,&Apache::lonnet::declutter($uri),600);
return $uri;	return $uri;
}	}