![[BACK]](/icons/back.gif){kind=icon}
Return to lonuserstate.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / rat|
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; |