loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.415, 2013/05/26 12:39:23	version 1.416, 2013/06/26 04:25:41
Line 487 sub create_submenu {	Line 487 sub create_submenu {
foreach my $item (@{$submenu}) {	foreach my $item (@{$submenu}) {
$count ++;	$count ++;
if (ref($item) eq 'ARRAY') {	if (ref($item) eq 'ARRAY') {
	my $href = $item->[0];
	if ($href =~ /(aboutme\|rss\.html)$/) {
	next unless (($env{'user.name'} ne '') && ($env{'user.domain'} ne ''));
	$href =~ s/\[domain\]/$env{'user.domain'}/g;
	$href =~ s/\[user\]/$env{'user.name'}/g;
	}
my $borderbot;	my $borderbot;
if ($count == $numsub) {	if ($count == $numsub) {
$borderbot = 'border-bottom:1px solid black;';	$borderbot = 'border-bottom:1px solid black;';
}	}
if ($item->[0] =~ /(aboutme\|rss\.html)$/) {
$item->[0] =~ s/\[domain\]/$env{'user.domain'}/g;
$item->[0] =~ s/\[user\]/$env{'user.name'}/g;
}
$menu .= '<li style="margin:0;padding:0;'.	$menu .= '<li style="margin:0;padding:0;'.
$borderbot.'"><a href="'.$item->[0].'">'.	$borderbot.'"><a href="'.$href.'">'.
&mt($item->[1]).'</a></li>';	&mt($item->[1]).'</a></li>';
}	}
}	}