Return to lonuserstate.pm CVS log | Up to [LON-CAPA] / rat |
version 1.64, 2003/10/29 21:21:08 | version 1.65, 2003/10/29 21:50:41 |
---|---|
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; } |
$uri=~s/\.(\w+)$/\.$version\.$1/; | $uri=~s/\.(\w+)$/\.$version\.$1/; |
} | } |
return $uri; | return $uri; |