--- loncom/auth/lonacc.pm 2008/03/08 02:45:14 1.114 +++ loncom/auth/lonacc.pm 2008/05/14 18:27:30 1.115 @@ -1,7 +1,7 @@ # The LearningOnline Network # Cookie Based Access Handler # -# $Id: lonacc.pm,v 1.114 2008/03/08 02:45:14 raeburn Exp $ +# $Id: lonacc.pm,v 1.115 2008/05/14 18:27:30 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -203,7 +203,24 @@ sub sso_login { &Apache::lonnet::logthis(" SSO authorized unknown user $user "); $r->subprocess_env->set('SSOUserUnknown' => $user); $r->subprocess_env->set('SSOUserDomain' => $domain); - $r->internal_redirect($r->dir_config('lonSSOUserUnknownRedirect')); + my @cancreate; + my %domconfig = + &Apache::lonnet::get_dom('configuration',['usercreation'],$domain); + if (ref($domconfig{'usercreation'}) eq 'HASH') { + if (ref($domconfig{'usercreation'}{'cancreate'}) eq 'HASH') { + if (ref($domconfig{'usercreation'}{'cancreate'}{'selfcreate'}) eq 'ARRAY') { + @cancreate = @{$domconfig{'usercreation'}{'cancreate'}{'selfcreate'}}; + } elsif (($domconfig{'usercreation'}{'cancreate'}{'selfcreate'} ne 'none') && + ($domconfig{'usercreation'}{'cancreate'}{'selfcreate'} ne '')) { + @cancreate = ($domconfig{'usercreation'}{'cancreate'}{'selfcreate'}); + } + } + } + if (grep(/^sso$/,@cancreate)) { + $r->internal_redirect('/adm/createaccount'); + } else { + $r->internal_redirect($r->dir_config('lonSSOUserUnknownRedirect')); + } $r->set_handlers('PerlHandler'=> undef); return OK; }