--- loncom/auth/lonauth.pm 2001/07/28 15:57:48 1.21 +++ loncom/auth/lonauth.pm 2001/08/16 02:03:15 1.23 @@ -6,7 +6,8 @@ # 7/1,7/10,10/2,10/5,10/9,10/26,10/30,11/10, # 05/28,05/29 Gerd Kortemeyer # 07/24 Scott Harrison -# 07/28 Gerd Kortemeyer +# 07/28,08/03 Gerd Kortemeyer +# 8/15 Scott Harrison package Apache::lonauth; @@ -124,7 +125,7 @@ sub success { my @what=&Apache::lonnet::dump('critical',$domain,$username); if ($what[0]) { - if ($what[0] ne 'con_lost') { + if (($what[0] ne 'con_lost') && ($what[0]!~/^error\:/)) { $lowerurl='/adm/email?critical=display'; } } @@ -172,7 +173,7 @@ function wait() { } function main() { - canceltim=setTimeout('tim=1;',20000); + canceltim=setTimeout('tim=1;',80000); checkdef(); wait(); }