rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

version 1.117, 2006/06/30 04:23:25	version 1.119.2.1, 2007/10/29 18:51:00
Line 199 sub loadmap {	Line 199 sub loadmap {
$hash{'ids_'.$idsuri}=''.$rid;	$hash{'ids_'.$idsuri}=''.$rid;
}	}

if ($turi=~/\/(syllabus\|aboutme\|navmaps\|smppg\|grppg\|bulletinboard)$/) {	if ($turi=~/\/(syllabus\|aboutme\|navmaps\|smppg\|bulletinboard)$/) {
$turi.='?register=1';	$turi.='?register=1';
}	}

Line 234 sub loadmap {	Line 234 sub loadmap {
my $rid=$lpc.'.'.$token->[2]->{'id'};	my $rid=$lpc.'.'.$token->[2]->{'id'};

$hash{'kind_'.$rid}='cond';	$hash{'kind_'.$rid}='cond';
$cond[$#cond+1]=$token->[2]->{'value'};	my $condition = $token->[2]->{'value'};
	$condition =~ s/[\n\r]+/ /gs;
	push(@cond, $condition);
$hash{'condid_'.$rid}=$#cond;	$hash{'condid_'.$rid}=$#cond;
if ($token->[2]->{'type'}) {	if ($token->[2]->{'type'}) {
$cond[$#cond].=':'.$token->[2]->{'type'};	$cond[$#cond].=':'.$token->[2]->{'type'};
Line 298 sub loadmap {	Line 300 sub loadmap {
$randompick{$referid}=$token->[2]->{'value'};	$randompick{$referid}=$token->[2]->{'value'};
}	}
if ($token->[2]->{'name'}=~/^parameter_(0_)*randompickseed$/) {	if ($token->[2]->{'name'}=~/^parameter_(0_)*randompickseed$/) {
$randompick{$referid}=$token->[2]->{'value'};	$randompickseed{$referid}=$token->[2]->{'value'};
}	}
if ($token->[2]->{'name'}=~/^parameter_(0_)*encrypturl$/) {	if ($token->[2]->{'name'}=~/^parameter_(0_)*encrypturl$/) {
if ($token->[2]->{'value'}=~/^yes$/i) {	if ($token->[2]->{'value'}=~/^yes$/i) {