version 1.516, 2016/03/02 20:07:20
|
version 1.517, 2016/03/17 13:20:35
|
Line 2768 sub parmval_real {
|
Line 2768 sub parmval_real {
|
sub recurseup_maps { |
sub recurseup_maps { |
my ($self,$mapname) = @_; |
my ($self,$mapname) = @_; |
my @recurseup; |
my @recurseup; |
my @pcs = split(/,/,$self->getResourceByUrl(&Apache::lonnet::clutter($mapname))->map_hierarchy()); |
if ($mapname) { |
shift(@pcs); |
my @pcs = split(/,/,$self->getResourceByUrl(&Apache::lonnet::clutter($mapname))->map_hierarchy()); |
pop(@pcs); |
shift(@pcs); |
if (@pcs) { |
pop(@pcs); |
@recurseup = map { &Apache::lonnet::declutter($self->getByMapPc($_)->src()); } reverse(@pcs); |
if (@pcs) { |
|
@recurseup = map { &Apache::lonnet::declutter($self->getByMapPc($_)->src()); } reverse(@pcs); |
|
} |
} |
} |
return @recurseup; |
return @recurseup; |
} |
} |