version 1.64, 2003/10/29 21:21:08
|
version 1.66, 2003/11/01 16:37:22
|
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; } |
|
&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; |