loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.518, 2016/03/28 12:39:43	version 1.519, 2016/04/04 00:34:37
Line 2788 sub recurseup_maps {	Line 2788 sub recurseup_maps {
my ($self,$mapname) = @_;	my ($self,$mapname) = @_;
my @recurseup;	my @recurseup;
if ($mapname) {	if ($mapname) {
my @pcs = split(/,/,$self->getResourceByUrl(&Apache::lonnet::clutter($mapname))->map_hierarchy());	my $res = $self->getResourceByUrl($mapname);
shift(@pcs);	if (ref($res)) {
pop(@pcs);	my @pcs = split(/,/,$res->map_hierarchy());
if (@pcs) {	shift(@pcs);
@recurseup = map { &Apache::lonnet::declutter($self->getByMapPc($_)->src()); } reverse(@pcs);	pop(@pcs);
	if (@pcs) {
	@recurseup = map { &Apache::lonnet::declutter($self->getByMapPc($_)->src()); } reverse(@pcs);
	}
}	}
}	}
return @recurseup;	return @recurseup;