--- loncom/auth/lonauth.pm 2000/10/09 19:43:38 1.13 +++ loncom/auth/lonauth.pm 2000/10/20 20:44:57 1.14 @@ -98,6 +98,15 @@ sub success { &Apache::lonnet::log($domain,$username,$authhost, "Login $ENV{'REMOTE_ADDR'}"); +# ------------------------------------------------- Check for critical messages + + my @what=&Apache::lonnet::dump('critical'); + if ($what[0]) { + if ($what[0] ne 'con_lost') { + $lowerurl='/adm/email/critical/'.$what[0]; + } + } + # ------------------------------------------------------------ Get cookie ready $cookie="lonID=$cookie; path=/";