loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1232, 2013/07/31 17:37:18	version 1.1233, 2013/08/04 02:55:41
Line 9793 sub EXT {	Line 9793 sub EXT {
}	}
return &hreflocation('',$env{'request.filename'});	return &hreflocation('',$env{'request.filename'});
}	}
}

if ((defined($courseid)) && ($courseid eq $env{'request.course.id'}) && $symbparm) {	if ((defined($courseid)) && ($courseid eq $env{'request.course.id'}) && $symbparm) {
if ($space eq 'visibleparts') {	if ($space eq 'visibleparts') {
my $navmap = Apache::lonnavmaps::navmap->new();	my $navmap = Apache::lonnavmaps::navmap->new();
my $item;	my $item;
if (ref($navmap)) {	if (ref($navmap)) {
my $res = $navmap->getBySymb($symbparm);	my $res = $navmap->getBySymb($symbparm);
my $parts = $res->parts();	my $parts = $res->parts();
if (ref($parts) eq 'ARRAY') {	if (ref($parts) eq 'ARRAY') {
$item = join(',',@{$parts});	$item = join(',',@{$parts});
	}
	undef($navmap);
}	}
undef($navmap);	return $item;
}	}
return $item;
}	}
}	}