loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

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="" />';