version 1.92, 2005/06/08 18:49:38
|
version 1.93, 2005/06/29 11:57:17
|
Line 73 sub versiontrack {
|
Line 73 sub versiontrack {
|
|
|
sub putinversion { |
sub putinversion { |
my $uri=shift; |
my $uri=shift; |
|
my $key=$env{'request.course.id'}.'_'.&Apache::lonnet::clutter($uri); |
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; } |
Line 81 sub putinversion {
|
Line 82 sub putinversion {
|
{ return $uri; } |
{ return $uri; } |
$uri=~s/\.(\w+)$/\.$version\.$1/; |
$uri=~s/\.(\w+)$/\.$version\.$1/; |
} |
} |
|
&Apache::lonnet::do_cache_new('courseresversion',$key,&Apache::lonnet::declutter($uri),600); |
return $uri; |
return $uri; |
} |
} |
|
|