--- loncom/interface/loncommon.pm 2014/05/20 20:19:08 1.1190 +++ loncom/interface/loncommon.pm 2014/05/22 11:08:32 1.1191 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.1190 2014/05/20 20:19:08 musolffc Exp $ +# $Id: loncommon.pm,v 1.1191 2014/05/22 11:08:32 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -15642,15 +15642,16 @@ sub critical_redirect { my @what=&Apache::lonnet::dump('critical', $env{'user.domain'}, $env{'user.name'}); &Apache::lonnet::appenv({'user.criticalcheck.time'=>time}); - my ($redirecturl,$redirectsymb); + my $redirecturl; if ($what[0]) { if (($what[0] ne 'con_lost') && ($what[0]!~/^error\:/)) { $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); - } - } else { return 0; } + } + } + return (); } # Use: