[BACK]Return to lonmenu.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmenu.pm between versions 1.240 and 1.241

version 1.240, 2008/09/04 22:47:20 version 1.241, 2008/09/05 19:20:39
Line 995  sub inlinemenu { Line 995  sub inlinemenu {
     &rawconfig(1);      &rawconfig(1);
     my $output='<table id="LC_mainmenu"><tr>';      my $output='<table id="LC_mainmenu"><tr>';
     for (my $col=1; $col<=2; $col++) {      for (my $col=1; $col<=2; $col++) {
         $output.='<td class="LC_mainmenu_column">';          $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 id="LC_menubuttons_mainmenu"><tr><td colspan="4" class="LC_menubuttons_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=();                 $output.='<fieldset id="LC_mainmenu_fieldset">';
                foreach my $menu_item (split(/\:/,$category_members{$cat})) {         $output.='<legend class="LC_mainmenu_fieldset_category">'.&mt($category_names{$cat}).'</legend>';
                   if ($inlineremote[$menu_item]) {                 $output.='<table id="LC_menubuttons_mainmenu">';
                      $active{$menu_item}=1;  
                   }  
                }    
                foreach my $item (sort(keys(%active))) {  
                   $output.=$inlineremote[$item];  
                }  
                $output.='</table>';  
             }  
          }  
          $output.="</td>";  
     }  
     $output.="</tr></table>";  
     return $output;  
 }  
   
 sub inlinemenu_new {  
     undef(@inlineremote);  
     undef(%category_members);  
     &rawconfig(1);  
     my $output='<table id="LC_mainmenu"><tr>';  
     for (my $col=1; $col<=2; $col++) {  
         $output.='<td class="LC_mainmenu_column">';  
         for (my $row=1; $row<=8; $row++) {  
             foreach my $cat (keys(%category_members)) {  
                if ($category_positions{$cat} ne "$col,$row") { next; }  
                $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]) {
Line 1037  sub inlinemenu_new { Line 1011  sub inlinemenu_new {
                }                   }  
                foreach my $item (sort(keys(%active))) {                 foreach my $item (sort(keys(%active))) {
                   $output.=$inlineremote[$item];                    $output.=$inlineremote[$item];
    &Apache::lonnet::logthis("item=$item output=$inlineremote[$item]");
                }                 }
                $output.='</table>';                 $output.='</table>';
                  $output.='</fieldset>';
             }              }
          }           }
          $output.="</td>";           $output.="</td>";
Removed from v.1.240  
changed lines
  Added in v.1.241

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>