version 1.92, 2005/06/08 18:49:38
|
version 1.95, 2005/07/15 12:29:07
|
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; |
} |
} |
|
|
Line 126 sub loadmap {
|
Line 128 sub loadmap {
|
# Successfully got file, parse it |
# Successfully got file, parse it |
|
|
my $parser = HTML::TokeParser->new(\$instr); |
my $parser = HTML::TokeParser->new(\$instr); |
|
$parser->attr_encoded(1); |
my $token; |
my $token; |
|
|
my $linkpc=0; |
my $linkpc=0; |
Line 588 sub readmap {
|
Line 591 sub readmap {
|
} |
} |
# ----------------------------------------------- Close hashes to finally store |
# ----------------------------------------------- Close hashes to finally store |
# --------------------------------- Routine must pass this point, no early outs |
# --------------------------------- Routine must pass this point, no early outs |
|
$hash{'first_url'}=$retfurl; |
unless ((untie(%hash)) && (untie(%parmhash))) { |
unless ((untie(%hash)) && (untie(%parmhash))) { |
&Apache::lonnet::logthis("<font color=blue>WARNING: ". |
&Apache::lonnet::logthis("<font color=blue>WARNING: ". |
"Could not untie coursemap $fn for $uri.</font>"); |
"Could not untie coursemap $fn for $uri.</font>"); |