rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

version 1.65, 2003/10/29 21:50:41	version 1.66, 2003/11/01 16:37:22
Line 74 sub putinversion {	Line 74 sub putinversion {
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; }
	if ($version eq &Apache::lonnet::getversion(
	&Apache::lonnet::filelocation('',$uri)))
	{ return $uri; }
	&Apache::lonnet::logthis($uri.' '.$version.' '. &Apache::lonnet::getversion(
	&Apache::lonnet::filelocation('',$uri)));
$uri=~s/\.(\w+)$/\.$version\.$1/;	$uri=~s/\.(\w+)$/\.$version\.$1/;
}	}
return $uri;	return $uri;