loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.572, 2025/02/26 19:50:21	version 1.573, 2025/04/02 23:44:01
Line 3067 sub parmval_real {	Line 3067 sub parmval_real {
}	}

sub recurseup_maps {	sub recurseup_maps {
my ($self,$mapname,$getsymb) = @_;	my ($self,$mapname,$getsymb,$inclusive) = @_;
my @recurseup;	my @recurseup;
if ($mapname) {	if ($mapname) {
my $res = $self->getResourceByUrl($mapname);	my $res = $self->getResourceByUrl($mapname);
Line 3081 sub recurseup_maps {	Line 3081 sub recurseup_maps {
@recurseup = map { &Apache::lonnet::declutter($self->getByMapPc($_)->src()); } reverse(@pcs);	@recurseup = map { &Apache::lonnet::declutter($self->getByMapPc($_)->src()); } reverse(@pcs);
}	}
}	}
	if ($inclusive) {
	if ($getsymb) {
	unshift(@recurseup,$res->symb());
	} else {
	unshift(@recurseup,$mapname);
	}
	}
}	}
}	}
return @recurseup;	return @recurseup;