loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.564, 2024/10/14 01:13:27	version 1.565, 2024/12/10 04:34:19
Line 3050 sub parmval_real {	Line 3050 sub parmval_real {
}	}

sub recurseup_maps {	sub recurseup_maps {
my ($self,$mapname) = @_;	my ($self,$mapname,$getsymb) = @_;
my @recurseup;	my @recurseup;
if ($mapname) {	if ($mapname) {
my $res = $self->getResourceByUrl($mapname);	my $res = $self->getResourceByUrl($mapname);
Line 3058 sub recurseup_maps {	Line 3058 sub recurseup_maps {
my @pcs = split(/,/,$res->map_hierarchy());	my @pcs = split(/,/,$res->map_hierarchy());
shift(@pcs);	shift(@pcs);
if (@pcs) {	if (@pcs) {
@recurseup = map { &Apache::lonnet::declutter($self->getByMapPc($_)->src()); } reverse(@pcs);	if ($getsymb) {
	@recurseup = map { &Apache::lonnet::declutter($self->getByMapPc($_)->symb()); } reverse(@pcs);
	} else {
	@recurseup = map { &Apache::lonnet::declutter($self->getByMapPc($_)->src()); } reverse(@pcs);
	}
}	}
}	}
}	}