rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

version 1.124, 2007/08/29 00:50:50	version 1.127, 2007/12/01 03:43:49
Line 210 sub loadmap {	Line 210 sub loadmap {
$hash{'type_'.$from_rid}='finish';	$hash{'type_'.$from_rid}='finish';
}	}

my $parser = HTML::TokeParser->new(\$instr);	$parser = HTML::TokeParser->new(\$instr);
$parser->attr_encoded(1);	$parser->attr_encoded(1);
# last parse out the mapalias params so as to ignore anything	# last parse out the mapalias params so as to ignore anything
# refering to non-existant resources	# refering to non-existant resources
Line 471 sub traceroute {	Line 471 sub traceroute {
if (defined($hash{'map_start_'.$hash{'src_'.$rid}})) {	if (defined($hash{'map_start_'.$hash{'src_'.$rid}})) {
$sofar=$newsofar=	$sofar=$newsofar=
&traceroute($sofar,	&traceroute($sofar,
$hash{'map_start_'.$hash{'src_'.$rid}},'&',	$hash{'map_start_'.$hash{'src_'.$rid}},
	$beenhere,
$encflag \|\| $encurl{$rid},	$encflag \|\| $encurl{$rid},
$hdnflag \|\| $hiddenurl{$rid});	$hdnflag \|\| $hiddenurl{$rid});
}	}
Line 837 sub evalstate {	Line 838 sub evalstate {
$count++;	$count++;
}	}
my ($mapid) = split(/\./,$id);	my ($mapid) = split(/\./,$id);
&mt('[_1] in [_2]', $hash{'title_'.$id},	&mt('Resource "[_1]" <br /> in Map "[_2]"',
	$hash{'title_'.$id},
$hash{'title_'.$hash{'ids_'.$hash{'map_id_'.$mapid}}});	$hash{'title_'.$hash{'ids_'.$hash{'map_id_'.$mapid}}});
} (@{ $mapalias_cache{$mapalias} }));	} (@{ $mapalias_cache{$mapalias} }));
next if ($count < 2);	next if ($count < 2);