version 1.463, 2009/06/30 14:30:26
|
version 1.464, 2009/06/30 14:59:17
|
Line 1636 sub mapmenu {
|
Line 1636 sub mapmenu {
|
.'</label></td>' |
.'</label></td>' |
.&Apache::loncommon::end_data_table_row() |
.&Apache::loncommon::end_data_table_row() |
); |
); |
|
my $whitespace = '<img src="' |
|
.&Apache::loncommon::lonhttpdurl("/adm/lonIcons/whitespace_21.gif") |
|
.'" alt="" />'; |
foreach my $mapid (@{$tree}) { |
foreach my $mapid (@{$tree}) { |
|
# Indentation |
my $depth = $treeinfo->{$mapid}->{'depth'}; |
my $depth = $treeinfo->{$mapid}->{'depth'}; |
my $indent = (' 'x$depth); |
my $indent; |
|
for (my $i = 0; $i < $depth; $i++) { |
|
$indent.= $whitespace; |
|
} |
$icon = '<img src="/adm/lonIcons/navmap.folder.open.gif" alt="" />'; |
$icon = '<img src="/adm/lonIcons/navmap.folder.open.gif" alt="" />'; |
if ($treeinfo->{$mapid}->{'type'} eq 'page') { |
if ($treeinfo->{$mapid}->{'type'} eq 'page') { |
$icon = '<img src="/adm/lonIcons/navmap.page.open.gif" alt="" />'; |
$icon = '<img src="/adm/lonIcons/navmap.page.open.gif" alt="" />'; |