rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

version 1.107.2.1, 2006/05/11 23:56:27	version 1.112, 2006/05/12 15:30:53
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 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});
$hash{$type.&putinversion($url)}=$value;	$hash{$type.&putinversion($url)}=$value;
}	}
}	}