loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1427, 2020/10/06 17:26:15	version 1.1428, 2020/10/15 18:09:10
Line 8763 sub get_commblock_resources {	Line 8763 sub get_commblock_resources {
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,0,0,1);	if (ref($mapres)) {
foreach my $res (@to_test) {	my $first = $mapres->map_start();
my $symb = $res->symb();	my $finish = $mapres->map_finish();
next if ($symb eq $mapsymb);	my $it = $navmap->getIterator($first,$finish,undef,0,0);
if ($symb ne '') {	my $res;
	while ($res = $it->next(undef,1)) {
	next unless (ref($res));
	my $symb = $res->symb();
	next if (($symb eq $mapsymb) \|\| ($symb eq ''));
@interval=&EXT("resource.0.interval",$symb);	@interval=&EXT("resource.0.interval",$symb);
if ($interval[1] eq 'map') {	if ($interval[1] eq 'map') {
last;	if ($res->answerable()) {
	push(@to_test,$res);
	last;
	}
}	}
}	}
}	}