Diff for /rat/lonuserstate.pm between versions 1.160 and 1.161

version 1.160, 2020/04/22 15:24:07 version 1.161, 2021/04/19 20:09:07
Line 1211  sub mapcrumbs { Line 1211  sub mapcrumbs {
 # ---------------------------------------------------- Read map and all submaps  # ---------------------------------------------------- Read map and all submaps
   
 sub readmap {  sub readmap {
     my $short=shift;      my ($short,$critmsg_check) = @_;
     $short=~s/^\///;      $short=~s/^\///;
   
     # TODO:  Hidden dependency on current user:      # TODO:  Hidden dependency on current user:
Line 1450  sub readmap { Line 1450  sub readmap {
   
 #  Depends on user must parameterize this as well..or separate as this is:  #  Depends on user must parameterize this as well..or separate as this is:
 #  more part of determining what someone sees on entering a course?  #  more part of determining what someone sees on entering a course?
   #  When lonuserstate::readmap() is called from lonroles.pm, i.e.,
     my @what=&Apache::lonnet::dump('critical',$env{'user.domain'},  #  after selecting a role in a course, critical_redirect will be called,
    $env{'user.name'});  #  unless the course has a blocking event in effect, when suppresses
     if ($what[0]) {  #  critical message checking (users without evb priv).
  if (($what[0] ne 'con_lost') && ($what[0]!~/^error\:/)) {  #
     $retfurl='/adm/email?critical=display';  
         }     if ($critmsg_check) {
          my ($redirect,$url) = &Apache::loncommon::critical_redirect();
          if ($redirect) {
              $retfurl = $url;
          }
     }      }
     return ($retfurl,$errtext);      return ($retfurl,$errtext);
 }  }

Removed from v.1.160  
changed lines
  Added in v.1.161


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