|
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; |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnavmaps.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface