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

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

version 1.345, 2021/04/19 15:05:55 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'}) || 
Removed from v.1.345  
changed lines
  Added in v.1.346

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