Diff for /rat/lonpage.pm between versions 1.130 and 1.131

version 1.130, 2020/02/17 16:12:35 version 1.131, 2020/02/17 23:04:24
Line 898  sub get_buttons { Line 898  sub get_buttons {
             return;              return;
         }          }
     }      }
       my $crs_sec = $env{'request.course.id'} . (($env{'request.course.sec'} ne '')
                                                  ? "/$env{'request.course.sec'}"
                                                  : '');
   
     if ($hash->{'encrypted_'.$rid}) {      if ($hash->{'encrypted_'.$rid}) {
  $symb=&Apache::lonenc::encrypted($symb);   $symb=&Apache::lonenc::encrypted($symb);
  $esrc=&Apache::lonenc::encrypted($esrc);   $esrc=&Apache::lonenc::encrypted($esrc);
Line 985  sub get_buttons { Line 989  sub get_buttons {
             if ((&Apache::lonnet::allowed('cre','/')) &&              if ((&Apache::lonnet::allowed('cre','/')) &&
                 (&Apache::lonnet::metadata($url,'sourceavail') eq 'open')) {                  (&Apache::lonnet::metadata($url,'sourceavail') eq 'open')) {
                 $viewsrcbutton = 1;                  $viewsrcbutton = 1;
             } elsif (&Apache::lonnet::allowed('vxc',$env{'request.course.id'})) {              } elsif (&Apache::lonnet::allowed('vxc',$crs_sec)) {
                 if ($url =~ m{^\Q/res/$cdom/\E($LONCAPA::match_username)/}) {                  if ($url =~ m{^\Q/res/$cdom/\E($LONCAPA::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($url,'sourceavail') eq 'open') &&                      } elsif ((&Apache::lonnet::metadata($url,'sourceavail') eq 'open') &&
                              (&Apache::lonnet::allowed('bre','/'))) {                               (&Apache::lonnet::allowed('bre',$crs_sec))) {
                         $viewsrcbutton = 1;                          $viewsrcbutton = 1;
                     }                      }
                 }                  }

Removed from v.1.130  
changed lines
  Added in v.1.131


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