--- loncom/interface/createaccount.pm 2009/03/12 13:41:11 1.29 +++ loncom/interface/createaccount.pm 2009/03/12 14:13:34 1.31 @@ -3,7 +3,7 @@ # institutional log-in ID (institutional authentication required - localauth # or kerberos) or an e-mail address. # -# $Id: createaccount.pm,v 1.29 2009/03/12 13:41:11 bisitz Exp $ +# $Id: createaccount.pm,v 1.31 2009/03/12 14:13:34 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -86,7 +86,7 @@ sub handler { my $start_page; my $handle = &Apache::lonnet::check_for_valid_session($r); - if ($handle ne '') { + if (($handle ne '') && ($handle !~ /^publicuser_\d+$/)) { $start_page = &Apache::loncommon::start_page('Already logged in'); my $end_page = @@ -467,22 +467,24 @@ sub login_box { my $upassform = ''; $output .= '