version 1.104, 2007/01/08 15:54:23
|
version 1.105, 2007/01/12 15:06:18
|
Line 164 sub sso_login {
|
Line 164 sub sso_login {
|
# login but immeaditly go to switch server to find us a new |
# login but immeaditly go to switch server to find us a new |
# machine |
# machine |
&Apache::lonauth::success($r,$user,$domain,$home,'noredirect'); |
&Apache::lonauth::success($r,$user,$domain,$home,'noredirect'); |
|
$env{'request.sso.login'} = 1; |
$r->internal_redirect('/adm/switchserver'); |
$r->internal_redirect('/adm/switchserver'); |
$r->set_handlers('PerlHandler'=> undef); |
$r->set_handlers('PerlHandler'=> undef); |
} else { |
} else { |