version 1.107.2.3, 2006/05/12 15:28:50
|
version 1.111, 2006/05/12 00:02:22
|
Line 545 sub hiddenurls {
|
Line 545 sub hiddenurls {
|
sub readmap { |
sub readmap { |
my $short=shift; |
my $short=shift; |
$short=~s/^\///; |
$short=~s/^\///; |
my %cenv=&Apache::lonnet::coursedescription($short); |
my %cenv=&Apache::lonnet::coursedescription($short,{'freshen_cache'=>1}); |
my $fn=$cenv{'fn'}; |
my $fn=$cenv{'fn'}; |
my $uri; |
my $uri; |
$short=~s/\//\_/g; |
$short=~s/\//\_/g; |
Line 597 sub readmap {
|
Line 597 sub readmap {
|
} elsif ($key =~ /^(map_(?:start|finish|pc)_)(.*)/) { |
} elsif ($key =~ /^(map_(?:start|finish|pc)_)(.*)/) { |
my ($type, $url) = ($1,$2); |
my ($type, $url) = ($1,$2); |
my $value = $hash{$key}; |
my $value = $hash{$key}; |
|
delete($hash{$key}); |
$hash{$type.&putinversion($url)}=$value; |
$hash{$type.&putinversion($url)}=$value; |
} |
} |
} |
} |