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

Diff for /loncom/interface/lonmenu.pm between versions 1.495 and 1.507

version 1.495, 2018/12/30 19:47:02 version 1.507, 2021/06/07 03:32:02
Line 247  sub prep_menuitem { Line 247  sub prep_menuitem {
 # @primary_menu is filled within the BEGIN block of this module with   # @primary_menu is filled within the BEGIN block of this module with 
 # entries from mydesk.tab  # entries from mydesk.tab
 sub primary_menu {  sub primary_menu {
     my ($crstype,$ltimenu) = @_;      my ($crstype,$ltimenu,$menucoll,$menuref) = @_;
     my (%menu,%ltiexc);      my (%menu,%ltiexc,%menuopts);
     # each element of @primary contains following array:      # each element of @primary contains following array:
     # (link url, icon path, alt text, link text, condition, position)      # (link url, icon path, alt text, link text, condition, position)
     my $public;      my $public;
Line 277  sub primary_menu { Line 277  sub primary_menu {
             }              }
         }          }
     }      }
       if (($menucoll) && (ref($menuref) eq 'HASH')) {
           %menuopts = %{$menuref};
       }
     foreach my $menuitem (@primary_menu) {      foreach my $menuitem (@primary_menu) {
         # evaluate conditions           # evaluate conditions 
         next if    ref($menuitem)       ne 'ARRAY';    #          next if    ref($menuitem)       ne 'ARRAY';    #
Line 312  sub primary_menu { Line 315  sub primary_menu {
         if ($position eq '') {          if ($position eq '') {
             $position = 'right';              $position = 'right';
         }          }
           if ($env{'request.course.id'} && $menucoll) {
                next if (($menuitem->[6]) && (!$menuopts{$menuitem->[6]}));
           }
         if (defined($primary_submenu{$title})) {          if (defined($primary_submenu{$title})) {
             my ($link,$target);              my ($link,$target);
             if ($menuitem->[0] ne '') {              if ($menuitem->[0] ne '') {
Line 331  sub primary_menu { Line 337  sub primary_menu {
                              ($item->[2] eq 'blog')) &&                               ($item->[2] eq 'blog')) &&
                              (!&Apache::lonnet::usertools_access('','',$item->[2],                               (!&Apache::lonnet::usertools_access('','',$item->[2],
                                                            undef,'tools')));                                                             undef,'tools')));
                       if ($env{'request.course.id'} && $menucoll) {
                           next if ($item->[3]) && (!$menuopts{$item->[3]});
                       }
                     push(@primsub,$item);                      push(@primsub,$item);
                 }                  }
                 if ($title eq 'Personal' && $env{'user.name'} && $env{'user.domain'} ) {                  if ($title eq 'Personal' && $env{'user.name'} && $env{'user.domain'} ) {
                     unless ($ltiexc{'fullname'}) {                      unless (($ltiexc{'fullname'}) || 
                               (($env{'request.course.id'}) && ($menucoll) && (!$menuopts{'name'}))) {
                         $title = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'});                          $title = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'});
                     }                      }
                 } else {                  } else {
Line 400  sub getauthor{ Line 410  sub getauthor{
 }  }
   
 sub secondary_menu {  sub secondary_menu {
     my ($httphost,$ltiscope,$ltimenu,$noprimary) = @_;      my ($httphost,$ltiscope,$ltimenu,$noprimary,$menucoll,$menuref) = @_;
     my $menu;      my $menu;
   
     my $crstype = &Apache::loncommon::course_type();      my $crstype = &Apache::loncommon::course_type();
Line 424  sub secondary_menu { Line 434  sub secondary_menu {
     my $canplc        = &Apache::lonnet::allowed('plc', $crs_sec);      my $canplc        = &Apache::lonnet::allowed('plc', $crs_sec);
     my $author        = &getauthor();      my $author        = &getauthor();
   
     my ($cdom,$cnum,$showsyllabus,$showfeeds,$showresv,$grouptools,$lti,$ltimapres,%ltiexc);      my ($cdom,$cnum,$showsyllabus,$showfeeds,$showresv,$grouptools,
           $lti,$ltimapres,%ltiexc,%menuopts);
     $grouptools = 0;      $grouptools = 0;
     if ($env{'request.course.id'}) {      if ($env{'request.course.id'}) {
         $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};          $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
Line 448  sub secondary_menu { Line 459  sub secondary_menu {
                 $showresv = 1;                  $showresv = 1;
             }              }
         }          }
         my %groups = &Apache::lonnet::get_active_groups(          if ($env{'request.course.groups'} ne '') {
                      $env{'user.domain'}, $env{'user.name'},$cdom,$cnum);              foreach my $group (split(/:/,$env{'request.course.groups'})) {
         if (%groups) {                  next unless ($group =~ /^\w+$/);
             foreach my $group (keys(%groups)) {  
                 my @privs = split(/:/,$env{"user.priv.$env{'request.role'}./$cdom/$cnum/$group"});                  my @privs = split(/:/,$env{"user.priv.$env{'request.role'}./$cdom/$cnum/$group"});
                 shift(@privs);                  shift(@privs);
                 if (@privs) {                  if (@privs) {
Line 473  sub secondary_menu { Line 483  sub secondary_menu {
             }              }
         }          }
     }      }
       if (($menucoll) && (ref($menuref) eq 'HASH')) {
           %menuopts = %{$menuref};
       }
   
     my ($canmodifycoauthor);       my ($canmodifycoauthor); 
     if ($env{'request.role'} eq "au./$env{'user.domain'}/") {      if ($env{'request.role'} eq "au./$env{'user.domain'}/") {
Line 535  sub secondary_menu { Line 548  sub secondary_menu {
                 && $ltiexc{'logout'};                  && $ltiexc{'logout'};
   
         my $title = $menuitem->[3];          my $title = $menuitem->[3];
           if ($env{'request.course.id'} && $menucoll) {
               unless ($$menuitem[5] eq 'roles') {
                   next if (($$menuitem[5]) && (!$menuopts{$$menuitem[5]}));
               }
           }
         if (defined($secondary_submenu{$title})) {          if (defined($secondary_submenu{$title})) {
             my ($link,$target);              my ($link,$target);
             if ($menuitem->[0] ne '') {              if ($menuitem->[0] ne '') {
                 $link = $menuitem->[0];                  $link = $menuitem->[0];
                 unless ($ltitarget eq 'iframe') {                     unless ($ltitarget eq 'iframe') {
                     $target = '_top';                      $target = '_top';
                 }                  }
             } else {              } else {
Line 569  sub secondary_menu { Line 587  sub secondary_menu {
                         push(@scndsub,$item);                          push(@scndsub,$item);
                     }                      }
                 }                  }
                 if ($title eq 'Personal' && $env{'user.name'} && $env{'user.domain'} ) {                  if ($title eq 'Personal' && $env{'user.name'} && $env{'user.domain'}) {
                     unless ($ltiexc{'fullname'}) {                      unless ($ltiexc{'fullname'}) {
                         $title = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'});                          $title = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'});
                     }                      }
                 }                  }
                 if (@scndsub > 0) {                  if (@scndsub > 0) {
                     $menu .= &create_submenu($link,$target,$title,\@scndsub,1);                      $menu .= &create_submenu($link,$target,&mt($title),\@scndsub,1);
                 } elsif ($link ne '#') {                  } elsif ($link ne '#') {
                     $menu .= '<li><a href="'.$link.'" target="'.$target.'">'.&mt($title).'</a></li>';                      $menu .= '<li><a href="'.$link.'" target="'.$target.'">'.&mt($title).'</a></li>';
                 }                  }
             }              }
         } elsif ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) {          } elsif ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) {
             # special treatment for role selector              # special treatment for role selector
             ($roleswitcher_js,$roleswitcher_form,my $switcher) =              my ($switcher,$has_opa_priv);
               ($roleswitcher_js,$roleswitcher_form,$switcher,$has_opa_priv) =
                 &roles_selector(                  &roles_selector(
                     $env{'course.' . $env{'request.course.id'} . '.domain'},                      $env{'course.' . $env{'request.course.id'} . '.domain'},
                     $env{'course.' . $env{'request.course.id'} . '.num'},                      $env{'course.' . $env{'request.course.id'} . '.num'},
                     $httphost,$ltitarget                      $httphost,$ltitarget
                 );                  );
               if (($$menuitem[5]) && (!$menuopts{$$menuitem[5]})) {
                   next unless ($has_opa_priv);
               }
             $menu .= $switcher;              $menu .= $switcher;
         } elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink          } elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink
             next if ($crstype eq 'Placement');              next if ($crstype eq 'Placement');
Line 605  sub secondary_menu { Line 627  sub secondary_menu {
                 }                  }
                 if ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ m{^http://}) {                  if ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ m{^http://}) {
                     if (($ENV{'SERVER_PORT'} == 443) || ($env{'request.use_absolute'} =~ m{^https://})) {                      if (($ENV{'SERVER_PORT'} == 443) || ($env{'request.use_absolute'} =~ m{^https://})) {
                         unless (&Apache::lonnet::uses_sts()) {                          unless ((&Apache::lonnet::uses_sts()) || (&Apache::lonnet::waf_allssl())) {
                             unless ($$menuitem[0] =~ m{^https?://}) {                              unless ($$menuitem[0] =~ m{^https?://}) {
                                 $$menuitem[0] = 'http://'.$ENV{'SERVER_NAME'}.$$menuitem[0];                                  $$menuitem[0] = 'http://'.$ENV{'SERVER_NAME'}.$$menuitem[0];
                             }                              }
Line 1099  if ($env{'browser.mobile'}) { Line 1121  if ($env{'browser.mobile'}) {
 }  }
   
             unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme|viewclasslist|portfolio)(\?|$)/) {              unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme|viewclasslist|portfolio)(\?|$)/) {
  if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/}) && ($env{'request.noversionuri'} !~ m{^/uploaded/$match_domain/$match_courseid/docs/}) && ($env{'request.noversionuri'} !~ m{^/adm/.+/ext\.tool$})) {   if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/}) &&
                       ($env{'request.noversionuri'} !~ m{^/uploaded/$match_domain/$match_courseid/(docs/|default_\d+\.page$)}) &&
                       ($env{'request.noversionuri'} !~ m{^/adm/.+/ext\.tool$})) {
     $menuitems.=(<<ENDREALRES);      $menuitems.=(<<ENDREALRES);
 s&6&3&catalog.png&Info&info[_1]&catalog_info('$is_mobile')&Show Metadata  s&6&3&catalog.png&Info&info[_1]&catalog_info(currentURL,'$is_mobile')&Show Metadata
 ENDREALRES  ENDREALRES
                 }                  }
                 unless (($env{'request.noversionuri'} =~ m{^/uploaded/$match_domain/$match_courseid/docs/}) ||                  unless (($env{'request.noversionuri'} =~ m{^/uploaded/$match_domain/$match_courseid/(docs/|default_\d+\.page$)}) ||
                         ($env{'request.noversionuri'} =~ m{^\Q/adm/wrapper/\E(ext|uploaded)/}) ||                          ($env{'request.noversionuri'} =~ m{^\Q/adm/wrapper/\E(ext|uploaded)/}) ||
                         ($env{'request.noversionuri'} =~ m{^/adm/.+/ext\.tool$})) {                          ($env{'request.noversionuri'} =~ m{^/adm/.+/ext\.tool$})) {
                     $menuitems.=(<<ENDREALRES);                      $menuitems.=(<<ENDREALRES);
Line 1282  sub prepare_functions { Line 1306  sub prepare_functions {
 # Determine whether or not to display 'Edit' or 'View Source' icon/button  # Determine whether or not to display 'Edit' or 'View Source' icon/button
 #  #
     if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) {      if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) {
           my $blocked = &Apache::loncommon::blocking_status('about',$2,$1);
         my $file=&Apache::lonnet::declutter($env{'request.filename'});          my $file=&Apache::lonnet::declutter($env{'request.filename'});
         ($cfile,$home,$switchserver,$forceedit,$forceview) =          ($cfile,$home,$switchserver,$forceedit,$forceview) =
             &Apache::lonnet::can_edit_resource($file,$cnum,$cdom,              &Apache::lonnet::can_edit_resource($file,$cnum,$cdom,
                 &Apache::lonnet::clutter($resurl),$env{'request.symb'},$group);                  &Apache::lonnet::clutter($resurl),$env{'request.symb'},$group);
         if (($cfile) && ($home ne '') && ($home ne 'no_host')) {          if (($cfile) && ($home ne '') && ($home ne 'no_host') && (!$blocked)) {
             $editbutton = &get_editbutton($cfile,$home,$switchserver,              $editbutton = &get_editbutton($cfile,$home,$switchserver,
                                           $forceedit,$forceview,$forcereg);                                            $forceedit,$forceview,$forcereg);
         }          }
Line 1366  sub prepare_functions { Line 1391  sub prepare_functions {
                 if ((($cfile eq '') || (!$editbutton)) &&                  if ((($cfile eq '') || (!$editbutton)) &&
                     ($resurl =~ /$LONCAPA::assess_re/)) {                      ($resurl =~ /$LONCAPA::assess_re/)) {
                     my $showurl = &Apache::lonnet::clutter($resurl);                      my $showurl = &Apache::lonnet::clutter($resurl);
                       my $crs_sec = $env{'request.course.id'} . (($env{'request.course.sec'} ne '')
                                                                 ? "/$env{'request.course.sec'}"
                                                                 : '');
                     if ((&Apache::lonnet::allowed('cre','/')) &&                      if ((&Apache::lonnet::allowed('cre','/')) &&
                         (&Apache::lonnet::metadata($resurl,'sourceavail') eq 'open')) {                          (&Apache::lonnet::metadata($resurl,'sourceavail') eq 'open')) {
                         $viewsrcbutton = 1;                          $viewsrcbutton = 1;
                     } elsif (&Apache::lonnet::allowed('vxc',$env{'request.course.id'})) {                      } elsif (&Apache::lonnet::allowed('vxc',$crs_sec)) {
                         if ($showurl =~ m{^\Q/res/$cdom/\E($match_username)/}) {                          if ($showurl =~ m{^\Q/res/$cdom/\E($match_username)/}) {
                             my $auname = $1;                              my $auname = $1;
                             if (($env{'request.course.adhocsrcaccess'} ne '') &&                              if (($env{'request.course.adhocsrcaccess'} ne '') &&
                                 (grep(/^\Q$auname\E$/,split(/,/,$env{'request.course.adhocsrcaccess'})))) {                                  (grep(/^\Q$auname\E$/,split(/,/,$env{'request.course.adhocsrcaccess'})))) {
                                 $viewsrcbutton = 1;                                  $viewsrcbutton = 1;
                             } elsif ((&Apache::lonnet::metadata($resurl,'sourceavail') eq 'open') &&                              } elsif ((&Apache::lonnet::metadata($resurl,'sourceavail') eq 'open') &&
                                      (&Apache::lonnet::allowed('bre','/'))) {                                       (&Apache::lonnet::allowed('bre',$crs_sec))) {
                                 $viewsrcbutton = 1;                                  $viewsrcbutton = 1;
                             }                              }
                         }                          }
Line 1396  sub prepare_functions { Line 1424  sub prepare_functions {
         if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) {          if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) {
             my ($sdom,$sname) = ($1,$2);              my ($sdom,$sname) = ($1,$2);
             unless (&Apache::lonnet::is_course($sdom,$sname)) {              unless (&Apache::lonnet::is_course($sdom,$sname)) {
                 &switch('','',6,4,'mail-message-new-22x22.png','Message to user',                  my $blocked = &Apache::loncommon::blocking_status('about',$sname,$sdom);
                         '',                  unless ($blocked) {
                         "go('/adm/email?compose=individual&amp;recname=$sname&amp;recdom=$sdom')",                      &switch('','',6,4,'mail-message-new-22x22.png','Message to user',
                             'Send message to specific user');                              '',
                               "go('/adm/email?compose=individual&amp;recname=$sname&amp;recdom=$sdom')",
                                   'Send message to specific user');
                   }
             }              }
             my $hideprivileged = 1;              my $hideprivileged = 1;
             if (&Apache::lonnet::in_course($sdom,$sname,$cdom,$cnum,undef,              if (&Apache::lonnet::in_course($sdom,$sname,$cdom,$cnum,undef,
Line 1905  sub done_button_js { Line 1936  sub done_button_js {
                  key      => 'Key:',                   key      => 'Key:',
                  nokey    => 'A proctor key is required',                    nokey    => 'A proctor key is required', 
     );      );
       my $shownsymb = &HTML::Entities::encode(&Apache::lonenc::check_encrypt($env{'request.symb'}));
     my $navmap = Apache::lonnavmaps::navmap->new();       my $navmap = Apache::lonnavmaps::navmap->new(); 
     my ($missing,$tried) = (0,0);      my ($missing,$tried) = (0,0);
     if (ref($navmap)) {      if (ref($navmap)) {
         my @resources=();          my @resources=();
         if ($type eq 'map') {          if ($type eq 'map') {
             my ($mapurl,$rid,$resurl)=&Apache::lonnet::decode_symb($env{'request.symb'});              my ($mapurl,$rid,$resurl)=&Apache::lonnet::decode_symb($env{'request.symb'});
             @resources=$navmap->retrieveResources($mapurl,sub { $_[0]->is_problem() });              if ($env{'request.symb'} =~ /\.page$/) {
                   @resources=$navmap->retrieveResources($resurl,sub { $_[0]->is_problem() });
               } else {
                   @resources=$navmap->retrieveResources($mapurl,sub { $_[0]->is_problem() });
               }
         } else {          } else {
             my $res = $navmap->getBySymb($env{'request.symb'});              my $res = $navmap->getBySymb($env{'request.symb'});
             if (ref($res)) {              if (ref($res)) {
Line 1963  sub done_button_js { Line 1999  sub done_button_js {
 <form method="post" name="LCdoneButton" action="">  <form method="post" name="LCdoneButton" action="">
     <input type="hidden" name="LC_interval_done" value="" />      <input type="hidden" name="LC_interval_done" value="" />
     <input type="hidden" name="LC_interval_done_proctorpass" value="" />      <input type="hidden" name="LC_interval_done_proctorpass" value="" />
       <input type="hidden" name="symb" value="$shownsymb" />
     <button id="LC_done-confirm-opener" type="button">$donebuttontext</button>      <button id="LC_done-confirm-opener" type="button">$donebuttontext</button>
 </form>  </form>
   
Line 2044  END Line 2081  END
   
 <form method="post" name="LCdoneButton" action="">  <form method="post" name="LCdoneButton" action="">
     <input type="hidden" name="LC_interval_done" value="" />      <input type="hidden" name="LC_interval_done" value="" />
       <input type="hidden" name="symb" value="$shownsymb" />
     <button id="LC_done-confirm-opener" type="button">$donebuttontext</button>      <button id="LC_done-confirm-opener" type="button">$donebuttontext</button>
 </form>  </form>
   
Line 2242  function golist(url) { Line 2280  function golist(url) {
   
   
   
 function catalog_info(isMobile) {  function catalog_info(url,isMobile) {
     if (isMobile == 1) {      if (isMobile == 1) {
         openMyModal(window.location.pathname+'.meta?modal=1',500,400,'yes');          openMyModal(url+'.meta?modal=1',500,400,'yes');
     } else {      } else {
         loncatinfo=window.open(window.location.pathname+'.meta',"LONcatInfo",'height=500,width=400,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');          loncatinfo=window.open(url+'.meta',"LONcatInfo",'height=500,width=400,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');
     }      }
 }  }
   
Line 2290  function open_StoredLinks_Import(rat) { Line 2328  function open_StoredLinks_Import(rat) {
 }  }
   
 function open_source() {  function open_source() {
    var url = escape(window.location.pathname);     sourcewin=window.open('/adm/source?inhibitmenu=yes&viewonly=1&filename='+currentURL,'LONsource',
    sourcewin=window.open('/adm/source?inhibitmenu=yes&viewonly=1&filename='+url,'LONsource',  
                          'height=500,width=600,resizable=yes,location=no,menubar=no,toolbar=no,scrollbars=yes');                           'height=500,width=600,resizable=yes,location=no,menubar=no,toolbar=no,scrollbars=yes');
 }  }
   
Line 2380  sub roles_selector { Line 2417  sub roles_selector {
     my $now = time;      my $now = time;
     my (%courseroles,%seccount,%courseprivs,%roledesc);      my (%courseroles,%seccount,%courseprivs,%roledesc);
     my $is_cc;      my $is_cc;
     my ($js,$form,$switcher);      my ($js,$form,$switcher,$has_opa_priv);
     my $ccrole;      my $ccrole;
     if ($crstype eq 'Community') {      if ($crstype eq 'Community') {
         $ccrole = 'co';          $ccrole = 'co';
Line 2501  sub roles_selector { Line 2538  sub roles_selector {
                 if ($env{'request.role'} =~ m{^\Q$role\E}) {                  if ($env{'request.role'} =~ m{^\Q$role\E}) {
                     if ($seccount{$role} > 1) {                      if ($seccount{$role} > 1) {
                         $include = 1;                          $include = 1;
                       } else {
                           if ($env{'user.priv.'.$env{'request.role'}."./$cdom/$cnum"} =~/opa\&([^\:]*)/) {
                               $has_opa_priv = 1;
                           }
                     }                      }
                 } else {                  } else {
                     $include = 1;                      $include = 1;
                 }                  }
             }              }
             if ($include) {              if ($include) {
                   if ($env{"user.priv.$role./$cdom/$cnum./$cdom/$cnum"} =~/opa\&([^\:]*)/) {
                       $has_opa_priv = 1;
                   }
                 push(@submenu,['javascript:adhocRole('."'$role'".')',                  push(@submenu,['javascript:adhocRole('."'$role'".')',
                                &Apache::lonnet::plaintext($role,$crstype)]);                                 &Apache::lonnet::plaintext($role,$crstype)]);
             }              }
Line 2531  sub roles_selector { Line 2575  sub roles_selector {
                     } else {                      } else {
                         $rolename = &Apache::lonnet::plaintext($role);                          $rolename = &Apache::lonnet::plaintext($role);
                     }                      }
                       if ($env{"user.priv.$role./$cdom/$cnum./$cdom/$cnum"} =~/opa\&([^\:]*)/) {
                           $has_opa_priv = 1;
                       }
                     push(@submenu,['javascript:adhocRole('."'$role'".')',                      push(@submenu,['javascript:adhocRole('."'$role'".')',
                                    $rolename]);                                     $rolename]);
                 }                  }
Line 2540  sub roles_selector { Line 2587  sub roles_selector {
             $switcher = &create_submenu('','',&mt('Switch role'),\@submenu,'','',$ltitarget);              $switcher = &create_submenu('','',&mt('Switch role'),\@submenu,'','',$ltitarget);
         }          }
     }      }
     return ($js,$form,$switcher);      return ($js,$form,$switcher,$has_opa_priv);
 }  }
   
 sub get_all_courseroles {  sub get_all_courseroles {
Line 2988  BEGIN { Line 3035  BEGIN {
                         $category_positions{$entries[2]}=$entries[1];                          $category_positions{$entries[2]}=$entries[1];
                         $category_names{$entries[2]}=$entries[3];                          $category_names{$entries[2]}=$entries[3];
                     } elsif ($configline=~/^prim\:/) {                      } elsif ($configline=~/^prim\:/) {
                         my @entries = (split(/\:/, $configline))[1..6];                          my @entries = (split(/\:/, $configline))[1..7];
                         push(@primary_menu,\@entries);                          push(@primary_menu,\@entries);
                     } elsif ($configline=~/^primsub\:/) {                      } elsif ($configline=~/^primsub\:/) {
                         my ($parent,@entries) = (split(/\:/, $configline))[1..4];                          my ($parent,@entries) = (split(/\:/, $configline))[1..5];
                         push(@{$primary_submenu{$parent}},\@entries);                          push(@{$primary_submenu{$parent}},\@entries);
                     } elsif ($configline=~/^scnd\:/) {                      } elsif ($configline=~/^scnd\:/) {
                         my @entries = (split(/\:/, $configline))[1..5];                          my @entries = (split(/\:/, $configline))[1..6];
                         push(@secondary_menu,\@entries);                          push(@secondary_menu,\@entries);
                     } elsif ($configline=~/^scndsub\:/) {                      } elsif ($configline=~/^scndsub\:/) {
                         my ($parent,@entries) = (split(/\:/, $configline))[1..4];                          my ($parent,@entries) = (split(/\:/, $configline))[1..4];
Removed from v.1.495  
changed lines
  Added in v.1.507

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