rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

version 1.64, 2003/10/29 21:21:08	version 1.67, 2003/11/01 16:42:13
Line 73 sub putinversion {	Line 73 sub putinversion {
my $uri=shift;	my $uri=shift;
if ($hash{'version_'.$uri}) {	if ($hash{'version_'.$uri}) {
my $version=$hash{'version_'.$uri};	my $version=$hash{'version_'.$uri};
if ($version eq 'current') { return $uri; }	if ($version eq 'mostrecent') { return $uri; }
	if ($version eq &Apache::lonnet::getversion(
	&Apache::lonnet::filelocation('',$uri)))
	{ return $uri; }
$uri=~s/\.(\w+)$/\.$version\.$1/;	$uri=~s/\.(\w+)$/\.$version\.$1/;
}	}
return $uri;	return $uri;