--- loncom/interface/createaccount.pm 2014/03/30 23:44:50 1.62 +++ loncom/interface/createaccount.pm 2014/04/19 20:48:43 1.63 @@ -4,7 +4,7 @@ # kerberos, or SSO) or an e-mail address. Requests to use an e-mail address as # username may be processed automatically, or may be queued for approval. # -# $Id: createaccount.pm,v 1.62 2014/03/30 23:44:50 raeburn Exp $ +# $Id: createaccount.pm,v 1.63 2014/04/19 20:48:43 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -991,8 +991,8 @@ sub create_account { $middlename = $dataref->{'middlename'}; $lastname = $dataref->{'lastname'}; $generation = $dataref->{'generation'}; - $inststatus = $dataref->{'usertype'}; - + $inststatus = $dataref->{'inststatus'}; + my $currhome = &Apache::lonnet::homeserver($username,$domain); unless ($currhome eq 'no_host') { $output = &mt('User account requested for username: [_1] in domain: [_2] already exists.',$username,$domain);