loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1190, 2014/05/20 20:19:08	version 1.1191, 2014/05/22 11:08:32
Line 15642 sub critical_redirect {	Line 15642 sub critical_redirect {
my @what=&Apache::lonnet::dump('critical', $env{'user.domain'},	my @what=&Apache::lonnet::dump('critical', $env{'user.domain'},
$env{'user.name'});	$env{'user.name'});
&Apache::lonnet::appenv({'user.criticalcheck.time'=>time});	&Apache::lonnet::appenv({'user.criticalcheck.time'=>time});
my ($redirecturl,$redirectsymb);	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]!~/^error\:/)) {
$redirecturl='/adm/email?critical=display';	$redirecturl='/adm/email?critical=display';
	my $url=&Apache::lonnet::absolute_url().$redirecturl;
	return (1, $url);
}	}
my $url=&Apache::lonnet::absolute_url().$redirecturl;	}
return (1, $url);	}
}	return ();
} else { return 0; }
}	}

# Use:	# Use: