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

Diff for /loncom/interface/lonmenu.pm between versions 1.437 and 1.439

version 1.437, 2015/09/14 13:45:01 version 1.439, 2016/02/26 21:44:39
Line 371  sub secondary_menu { Line 371  sub secondary_menu {
     my $canmgr        = &Apache::lonnet::allowed('mgr', $crs_sec);       my $canmgr        = &Apache::lonnet::allowed('mgr', $crs_sec); 
     my $author        = &getauthor();      my $author        = &getauthor();
   
     my ($cdom,$cnum,$showsyllabus,$showfeeds,$showresv);      my ($cdom,$cnum,$showsyllabus,$showfeeds,$showresv,$grouptools);
       $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'};
         $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};          $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
Line 397  sub secondary_menu { Line 398  sub secondary_menu {
                 $showresv = 1;                  $showresv = 1;
             }              }
         }          }
           my %groups = &Apache::lonnet::get_active_groups(
                        $env{'user.domain'}, $env{'user.name'},$cdom,$cnum);
           if (%groups) {
               foreach my $group (keys(%groups)) {
                   my @privs = split(/:/,$env{"user.priv.$env{'request.role'}./$cdom/$cnum/$group"});
                   shift(@privs);
                   if (@privs) {
                       $grouptools ++;
                   }
               }
           }
     }      }
   
     my ($canmodifycoauthor);       my ($canmodifycoauthor); 
Line 407  sub secondary_menu { Line 419  sub secondary_menu {
             $canmodifycoauthor = 1;              $canmodifycoauthor = 1;
         }          }
     }      }
   
     my %groups = &Apache::lonnet::get_active_groups(  
                      $env{'user.domain'}, $env{'user.name'},  
                      $env{'course.' . $env{'request.course.id'} . '.domain'},  
                      $env{'course.' . $env{'request.course.id'} . '.num'});  
   
     my ($roleswitcher_js,$roleswitcher_form);      my ($roleswitcher_js,$roleswitcher_form);
   
     foreach my $menuitem (@secondary_menu) {      foreach my $menuitem (@secondary_menu) {
Line 441  sub secondary_menu { Line 447  sub secondary_menu {
                 && !$canmodpara;                  && !$canmodpara;
         next if    $$menuitem[4]   =~ /showgroups$/          next if    $$menuitem[4]   =~ /showgroups$/
                 && !$canviewgrps                  && !$canviewgrps
                 && !%groups;                  && !$grouptools;
         next if    $$menuitem[4]   eq 'showsyllabus'          next if    $$menuitem[4]   eq 'showsyllabus'
                 && !$showsyllabus;                  && !$showsyllabus;
         next if    $$menuitem[4]   eq 'showfeeds'          next if    $$menuitem[4]   eq 'showfeeds'
Line 847  if ($env{'browser.mobile'}) { Line 853  if ($env{'browser.mobile'}) {
     $is_mobile = 1;      $is_mobile = 1;
 }  }
   
             unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme|viewclasslist|portfolio)(\?|$)/) {              unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme|viewclasslist|portfolio|exttools?)(\?|$)/) {
  if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/}) && ($env{'request.noversionuri'} !~ m{^/uploaded/$match_domain/$match_courseid/docs/})) {   if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/}) && ($env{'request.noversionuri'} !~ m{^/uploaded/$match_domain/$match_courseid/docs/})) {
     $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('$is_mobile')&Show Metadata
Line 1125  sub prepare_functions { Line 1131  sub prepare_functions {
         if (($env{'form.folderpath'} =~ /^supplemental/) &&          if (($env{'form.folderpath'} =~ /^supplemental/) &&
             (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) &&              (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) &&
             (($resurl =~ m{^/adm/wrapper/ext/}) ||              (($resurl =~ m{^/adm/wrapper/ext/}) ||
                ($resurl =~ m{^/adm/$cdom/$cnum/\d+/exttools?$}) ||
              ($resurl =~ m{^/uploaded/$cdom/$cnum/supplemental/}) ||               ($resurl =~ m{^/uploaded/$cdom/$cnum/supplemental/}) ||
              ($resurl eq '/adm/supplemental') ||               ($resurl eq '/adm/supplemental') ||
              ($resurl =~ m{^/public/$cdom/$cnum/syllabus$}) ||               ($resurl =~ m{^/public/$cdom/$cnum/syllabus$}) ||
Removed from v.1.437  
changed lines
  Added in v.1.439

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