version 1.160, 2020/04/22 15:24:07
|
version 1.163, 2021/04/29 14:54:36
|
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, which 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); |