loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1172.2.62, 2015/04/01 23:43:55	version 1.1172.2.63, 2015/04/09 17:59:45
Line 7331 sub has_comm_blocking {	Line 7331 sub has_comm_blocking {
if ($mapsymb) {	if ($mapsymb) {
if (ref($navmap)) {	if (ref($navmap)) {
my $mapres = $navmap->getBySymb($mapsymb);	my $mapres = $navmap->getBySymb($mapsymb);
@to_test = $mapres->retrieveResources($mapres,undef,0,1);	@to_test = $mapres->retrieveResources($mapres);
foreach my $res (@to_test) {	foreach my $res (@to_test) {
my $symb = $res->symb();	my $symb = $res->symb();
next if ($symb eq $mapsymb);	next if ($symb eq $mapsymb);
if ($symb ne '') {	if ($symb ne '') {
@interval=&EXT("resource.0.interval",$symb);	@interval=&EXT("resource.0.interval",$symb);
last;	if ($interval[1] eq 'map') {
	last;
	}
}	}
}	}
}	}