rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

version 1.109, 2006/05/05 15:50:20	version 1.113, 2006/05/25 21:09:45
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)_)(.*)/) {
	my ($type, $url) = ($1,$2);
	my $value = $hash{$key};
	$hash{$type.&putinversion($url)}=$value;
}	}
}	}
# ---------------------------------------------------------------- Encrypt URLs	# ---------------------------------------------------------------- Encrypt URLs
Line 677 sub evalstate {	Line 681 sub evalstate {
if (-e $fn) {	if (-e $fn) {
my @conditions=();	my @conditions=();
{	{
my $fh=Apache::File->new($fn);	open(my $fh,$fn);
@conditions=<$fh>;	@conditions=<$fh>;
}	}
my $safeeval = new Safe;	my $safeeval = new Safe;