version 1.89, 2005/04/07 06:56:27
|
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; |
} |
} |
|
|
Line 138 sub loadmap {
|
Line 140 sub loadmap {
|
if ($token->[0] eq 'S') { |
if ($token->[0] eq 'S') { |
if ($token->[1] eq 'resource') { |
if ($token->[1] eq 'resource') { |
# -------------------------------------------------------------------- Resource |
# -------------------------------------------------------------------- Resource |
|
if ($token->[2]->{'type'} eq 'zombie') { next; } |
my $rid=$lpc.'.'.$token->[2]->{'id'}; |
my $rid=$lpc.'.'.$token->[2]->{'id'}; |
|
|
$hash{'kind_'.$rid}='res'; |
$hash{'kind_'.$rid}='res'; |
Line 338 sub traceroute {
|
Line 340 sub traceroute {
|
my ($mapid,$resid)=split(/\./,$rid); |
my ($mapid,$resid)=split(/\./,$rid); |
my $symb=&Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},$resid,$hash{'src_'.$rid}); |
my $symb=&Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},$resid,$hash{'src_'.$rid}); |
my $hidden=&Apache::lonnet::EXT('resource.0.hiddenresource',$symb); |
my $hidden=&Apache::lonnet::EXT('resource.0.hiddenresource',$symb); |
if ($hdnflag || lc($hidden) eq 'yes') { $hiddenurl{$rid}=1; } |
|
|
if ($hdnflag || lc($hidden) eq 'yes') { |
|
$hiddenurl{$rid}=1; |
|
} |
|
if (!$hdnflag && lc($hidden) eq 'no') { |
|
delete($hiddenurl{$rid}); |
|
} |
|
|
my $encrypt=&Apache::lonnet::EXT('resource.0.encrypturl',$symb); |
my $encrypt=&Apache::lonnet::EXT('resource.0.encrypturl',$symb); |
if ($encflag || lc($encrypt) eq 'yes') { $encurl{$rid}=1; } |
if ($encflag || lc($encrypt) eq 'yes') { $encurl{$rid}=1; } |
if (($retfurl eq '') && ($hash{'src_'.$rid}) |
if (($retfurl eq '') && ($hash{'src_'.$rid}) |