|
version 1.1355, 2021/03/30 23:19:23
|
version 1.1356, 2021/04/11 18:05:43
|
|
Line 18255 sub cleanup_html {
|
Line 18255 sub cleanup_html {
|
| # $context is the calling context -- roles, grades, contents, menu or flip. |
# $context is the calling context -- roles, grades, contents, menu or flip. |
| sub critical_redirect { |
sub critical_redirect { |
| my ($interval,$context) = @_; |
my ($interval,$context) = @_; |
| |
unless (($env{'user.domain'} ne '') && ($env{'user.name'} ne '')) { |
| |
return (); |
| |
} |
| if ((time-$env{'user.criticalcheck.time'})>$interval) { |
if ((time-$env{'user.criticalcheck.time'})>$interval) { |
| if (($env{'request.course.id'}) && (($context eq 'flip') || ($context eq 'contents'))) { |
if (($env{'request.course.id'}) && (($context eq 'flip') || ($context eq 'contents'))) { |
| my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
Line 18276 sub critical_redirect {
|
Line 18279 sub critical_redirect {
|
| &Apache::lonnet::appenv({'user.criticalcheck.time'=>time}); |
&Apache::lonnet::appenv({'user.criticalcheck.time'=>time}); |
| my $redirecturl; |
my $redirecturl; |
| if ($what[0]) { |
if ($what[0]) { |
| if (($what[0] ne 'con_lost') && ($what[0]!~/^error\:/)) { |
if (($what[0] ne 'con_lost') && ($what[0] ne 'no_such_host') && ($what[0]!~/^error\:/)) { |
| $redirecturl='/adm/email?critical=display'; |
$redirecturl='/adm/email?critical=display'; |
| my $url=&Apache::lonnet::absolute_url().$redirecturl; |
my $url=&Apache::lonnet::absolute_url().$redirecturl; |
| return (1, $url); |
return (1, $url); |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface