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

Diff for /loncom/auth/lonroles.pm between versions 1.344 and 1.346

version 1.344, 2020/12/18 15:23:03 version 1.346, 2021/04/19 20:09:07
Line 591  ENDENTERKEY Line 591  ENDENTERKEY
                                 }                                  }
                             }                              }
                         }                          }
                         my $msg;                          my ($msg,$blockcrit,$critmsg_check); 
                           $critmsg_check = 1;
                           $blockcrit = &Apache::loncommon::blocking_status('alert',$cnum,$cdom,undef,1);
                           if ($blockcrit) {
                               my $checkrole = "cm./$cdom/$cnum";
                               if ($csec ne '') {
                                   $checkrole .= "/$csec";
                               }
                               unless ((&Apache::lonnet::allowed('evb',undef,undef,$checkrole)) &&
                                       ($trolecode !~ m{^st\./$cdom/$cnum})) {
                                   $critmsg_check = 0;
                               }
                           }
  my ($furl,$ferr)=   my ($furl,$ferr)=
     &Apache::lonuserstate::readmap($cdom.'/'.$cnum);      &Apache::lonuserstate::readmap($cdom.'/'.$cnum,$critmsg_check);
                         unless ($ferr) {                          unless ($ferr) {
                             &Apache::lonnet::appenv({'request.course.timechecked'=>$now});                              &Apache::lonnet::appenv({'request.course.timechecked'=>$now});
                             unless (($env{'form.switchrole'}) ||                               unless (($env{'form.switchrole'}) || 
Line 653  ENDENTERKEY Line 665  ENDENTERKEY
                             if (($ferr) && ($tadv)) {                              if (($ferr) && ($tadv)) {
  &error_page($r,$ferr,$dest);   &error_page($r,$ferr,$dest);
     } else {      } else {
                                   if ($env{'request.course.id'} eq $cdom.'_'.$cnum) {
                                       if (($env{'form.orgurl'} ne '') && ($env{'form.symb'} ne '')) {
                                           unless (&Apache::lonnet::symbverify($env{'form.symb'},$env{'form.orgurl'}) {
                                               $dest=$env{'form.orgurl'};
                                           }
                                       } 
                                   }
                                 if ($dest =~ m{^/adm/coursedocs\?folderpath}) {                                  if ($dest =~ m{^/adm/coursedocs\?folderpath}) {
                                     if ($env{'request.course.id'} eq $cdom.'_'.$cnum) {                                       if ($env{'request.course.id'} eq $cdom.'_'.$cnum) { 
                                         my $chome = &Apache::lonnet::homeserver($cnum,$cdom);                                          my $chome = &Apache::lonnet::homeserver($cnum,$cdom);
Removed from v.1.344  
changed lines
  Added in v.1.346

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