--- loncom/auth/lonacc.pm 2006/12/11 14:06:04 1.103 +++ loncom/auth/lonacc.pm 2007/01/12 15:06:18 1.105 @@ -1,7 +1,7 @@ # The LearningOnline Network # Cookie Based Access Handler # -# $Id: lonacc.pm,v 1.103 2006/12/11 14:06:04 raeburn Exp $ +# $Id: lonacc.pm,v 1.105 2007/01/12 15:06:18 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -164,6 +164,7 @@ sub sso_login { # login but immeaditly go to switch server to find us a new # machine &Apache::lonauth::success($r,$user,$domain,$home,'noredirect'); + $env{'request.sso.login'} = 1; $r->internal_redirect('/adm/switchserver'); $r->set_handlers('PerlHandler'=> undef); } else { @@ -184,6 +185,8 @@ sub sso_login { } return OK; } elsif (defined($r->dir_config('lonSSOUserUnknownRedirect'))) { + $r->subprocess_env->set('SSOUserUnknown' => $user); + $r->subprocess_env->set('SSOUserDomain' => $domain); $r->internal_redirect($r->dir_config('lonSSOUserUnknownRedirect')); $r->set_handlers('PerlHandler'=> undef); return OK;