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

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

version 1.507, 2021/06/07 03:32:02 version 1.508, 2021/06/07 05:59:43
Line 316  sub primary_menu { Line 316  sub primary_menu {
             $position = 'right';              $position = 'right';
         }          }
         if ($env{'request.course.id'} && $menucoll) {          if ($env{'request.course.id'} && $menucoll) {
              next if (($menuitem->[6]) && (!$menuopts{$menuitem->[6]}));              if (($menuitem->[6]) && (!$menuopts{$menuitem->[6]})) {
                   if ($menuitem->[6] eq 'pers') {
                       if ($menuopts{'name'} && !$ltiexc{'fullname'} &&
                           $env{'user.name'} && $env{'user.domain'}) {
                           $menu{$position} .= '<li><a href="#">'.
                               &Apache::loncommon::plainname($env{'user.name'},
                                                             $env{'user.domain'}).'</a></li>';
                           next;
                       } else {
                           next;
                       }
                   } else {
                       next;
                   }
               }
         }          }
         if (defined($primary_submenu{$title})) {          if (defined($primary_submenu{$title})) {
             my ($link,$target);              my ($link,$target);
Line 342  sub primary_menu { Line 356  sub primary_menu {
                     }                      }
                     push(@primsub,$item);                      push(@primsub,$item);
                 }                  }
                 if ($title eq 'Personal' && $env{'user.name'} && $env{'user.domain'} ) {                  if ($title eq 'Personal') {
                     unless (($ltiexc{'fullname'}) ||                       if ($env{'user.name'} && $env{'user.domain'} && !$ltiexc{'fullname'}) {
                             (($env{'request.course.id'}) && ($menucoll) && (!$menuopts{'name'}))) {                          unless (($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'});
                           }
                     }                      }
                       next if (($env{'request.course.id'}) && ($menucoll) && ($title eq 'Personal') &&
                                (!@primsub));
                 } else {                  } else {
                     $title = &mt($title);                      $title = &mt($title);
                 }                  }
Removed from v.1.507  
changed lines
  Added in v.1.508

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