version 1.109, 2006/05/05 15:50:20
|
version 1.110, 2006/05/11 23:54:06
|
Line 592 sub readmap {
|
Line 592 sub readmap {
|
} |
} |
# ------------------------------------------------------- Put versions into src |
# ------------------------------------------------------- Put versions into src |
foreach my $key (keys(%hash)) { |
foreach my $key (keys(%hash)) { |
if ($key=~/^src\_/) { |
if ($key=~/^src_/) { |
$hash{$key}=&putinversion($hash{$key}); |
$hash{$key}=&putinversion($hash{$key}); |
|
} elsif ($key =~ /^(map_(?:start|finish|pc)_)(.*)/) { |
|
&Apache::lonnet::logthis($key); |
|
my ($type, $url) = ($1,$2); |
|
my $value = $hash{$key}; |
|
delete($hash{$key}); |
|
$hash{$type.&putinversion($url)}=$value; |
} |
} |
} |
} |
# ---------------------------------------------------------------- Encrypt URLs |
# ---------------------------------------------------------------- Encrypt URLs |