--- loncom/interface/createaccount.pm 2009/02/07 00:59:17 1.28 +++ 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.28 2009/02/07 00:59:17 raeburn 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,27 +467,32 @@ sub login_box { my $upassform = ''; $output .= '
'; return $output;