loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.213, 2007/04/13 13:39:32	version 1.214, 2007/04/13 20:22:15
Line 910 sub inlinemenu {	Line 910 sub inlinemenu {
undef(@inlineremote);	undef(@inlineremote);
undef(%category_members);	undef(%category_members);
&rawconfig(1);	&rawconfig(1);
my $output='<table><tr>';	my $output='<table id="LC_mainmenu"><tr>';
for (my $col=1; $col<=2; $col++) {	for (my $col=1; $col<=2; $col++) {
$output.='<td>';	$output.='<td class="LC_mainmenu_column">';
for (my $row=1; $row<=8; $row++) {	for (my $row=1; $row<=8; $row++) {
foreach my $cat (keys(%category_members)) {	foreach my $cat (keys(%category_members)) {
if ($category_positions{$cat} ne "$col,$row") { next; }	if ($category_positions{$cat} ne "$col,$row") { next; }
$output.='<table id="LC_menubuttons_mainmenu"><tr><td colspan="4" class="LC_menu_category">'.&mt($category_names{$cat}).'</td></tr>';	$output.='<table id="LC_menubuttons_mainmenu"><tr><td colspan="4" class="LC_menubuttons_category">'.&mt($category_names{$cat}).'</td></tr>';
my %active=();	my %active=();
foreach my $menu_item (split(/\:/,$category_members{$cat})) {	foreach my $menu_item (split(/\:/,$category_members{$cat})) {
if ($inlineremote[$menu_item]) {	if ($inlineremote[$menu_item]) {