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

Diff for /loncom/interface/lonmenu.pm between versions 1.498 and 1.501

version 1.498, 2019/08/06 15:54:37 version 1.501, 2020/02/17 23:04:18
Line 449  sub secondary_menu { Line 449  sub secondary_menu {
             }              }
         }          }
         if ($env{'request.course.groups'} ne '') {          if ($env{'request.course.groups'} ne '') {
             foreach my $group (split(/:/,$env{'request.course.groups'}) {              foreach my $group (split(/:/,$env{'request.course.groups'})) {
                 next unless ($group =~ /^\w+$/);                  next unless ($group =~ /^\w+$/);
                 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);
Line 1365  sub prepare_functions { Line 1365  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 1910  sub done_button_js { Line 1913  sub done_button_js {
         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)) {
Removed from v.1.498  
changed lines
  Added in v.1.501

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