version 1.21, 2001/07/28 15:57:48
|
version 1.22, 2001/08/04 00:39:32
|
Line 6
|
Line 6
|
# 7/1,7/10,10/2,10/5,10/9,10/26,10/30,11/10, |
# 7/1,7/10,10/2,10/5,10/9,10/26,10/30,11/10, |
# 05/28,05/29 Gerd Kortemeyer |
# 05/28,05/29 Gerd Kortemeyer |
# 07/24 Scott Harrison |
# 07/24 Scott Harrison |
# 07/28 Gerd Kortemeyer |
# 07/28,08/03 Gerd Kortemeyer |
|
|
package Apache::lonauth; |
package Apache::lonauth; |
|
|
Line 124 sub success {
|
Line 124 sub success {
|
|
|
my @what=&Apache::lonnet::dump('critical',$domain,$username); |
my @what=&Apache::lonnet::dump('critical',$domain,$username); |
if ($what[0]) { |
if ($what[0]) { |
if ($what[0] ne 'con_lost') { |
if (($what[0] ne 'con_lost') && ($what[0]!~/^error\:/)) { |
$lowerurl='/adm/email?critical=display'; |
$lowerurl='/adm/email?critical=display'; |
} |
} |
} |
} |