version 1.107.2.1, 2006/05/11 23:56:27
|
version 1.107.2.2, 2006/05/11 23:59:11
|
Line 595 sub readmap {
|
Line 595 sub readmap {
|
if ($key=~/^src_/) { |
if ($key=~/^src_/) { |
$hash{$key}=&putinversion($hash{$key}); |
$hash{$key}=&putinversion($hash{$key}); |
} elsif ($key =~ /^(map_(?:start|finish|pc)_)(.*)/) { |
} elsif ($key =~ /^(map_(?:start|finish|pc)_)(.*)/) { |
&Apache::lonnet::logthis($key); |
|
my ($type, $url) = ($1,$2); |
my ($type, $url) = ($1,$2); |
my $value = $hash{$key}; |
my $value = $hash{$key}; |
delete($hash{$key}); |
delete($hash{$key}); |