loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.73, 2006/02/28 16:44:19	version 1.74, 2006/04/05 22:39:55
Line 80 sub handler {	Line 80 sub handler {
unlink("$lonidsdir/$handle.id");	unlink("$lonidsdir/$handle.id");
} elsif ($handle ne '') {	} elsif ($handle ne '') {
# Indeed, a valid token is found	# Indeed, a valid token is found
my $bodytag=&Apache::loncommon::bodytag('Already logged in');	my $start_page =
	&Apache::loncommon::start_page('Already logged in');
	my $end_page =
	&Apache::loncommon::end_page();
$r->print(<<ENDFAILED);	$r->print(<<ENDFAILED);
<html>	$start_page
<head>
<title>Already logged in</title>
</head>
$bodytag
<h1>You are already logged in</h1>	<h1>You are already logged in</h1>
<p>Please either <a href="/adm/roles">continue the current session</a> or	<p>Please either <a href="/adm/roles">continue the current session</a> or
<a href="/adm/logout">logout</a>.</p>	<a href="/adm/logout">logout</a>.</p>
<p>	<p>
<a href="/adm/loginproblems.html">Problems?</a></p>	<a href="/adm/loginproblems.html">Problems?</a></p>
</body>	$end_page
</html>
ENDFAILED	ENDFAILED
return OK;	return OK;
}	}