|
version 1.308, 2009/11/30 21:29:47
|
version 1.309, 2009/12/03 14:27:16
|
|
Line 1336 sub inlinemenu {
|
Line 1336 sub inlinemenu {
|
| undef(%category_members); |
undef(%category_members); |
| # calling rawconfig with "1" will evaluate mydesk.tab, even if there is no active remote control |
# calling rawconfig with "1" will evaluate mydesk.tab, even if there is no active remote control |
| &rawconfig(1); |
&rawconfig(1); |
| my $output='<table id="LC_mainmenu"><tr>'; |
my $output='<table><tr>'; |
| for (my $col=1; $col<=2; $col++) { |
for (my $col=1; $col<=2; $col++) { |
| $output.='<td class="LC_mainmenu_col_fieldset">'; |
$output.='<td class="LC_mainmenu_col_fieldset">'; |
| 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><tr><td colspan="4" class="LC_menubuttons_category">'.&mt($category_names{$cat}).'</td></tr>'; |
#$output.='<table><tr><td colspan="4" class="LC_menubuttons_category">'.&mt($category_names{$cat}).'</td></tr>'; |
| $output.='<div class="LC_Box">'; |
$output.='<div class="LC_Box LC_400Box">'; |
| $output.='<h4 class="LC_hcell">'.&mt($category_names{$cat}).'</h4>'; |
$output.='<h3 class="LC_hcell">'.&mt($category_names{$cat}).'</h3>'; |
| $output.='<table>'; |
$output.='<table>'; |
| my %active=(); |
my %active=(); |
| foreach my $menu_item (split(/\:/,$category_members{$cat})) { |
foreach my $menu_item (split(/\:/,$category_members{$cat})) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmenu.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface