loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.55.2.3, 2005/06/14 20:10:50	version 1.56, 2004/03/16 20:42:50
Line 68 sub handler {	Line 68 sub handler {
<head>	<head>
<title>Already logged in</title>	<title>Already logged in</title>
</head>	</head>
<html>
$bodytag	$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
Line 109 ENDFAILED	Line 108 ENDFAILED
my $iconpath= 'http://'.$ENV{'HTTP_HOST'}.':'.$port_to_use.	my $iconpath= 'http://'.$ENV{'HTTP_HOST'}.':'.$port_to_use.
$r->dir_config('lonIconsURL');	$r->dir_config('lonIconsURL');
my $domain = $r->dir_config('lonDefDomain');	my $domain = $r->dir_config('lonDefDomain');
my $testdomain=(split(/\./,$ENV{'HTTP_HOST'}))[0];
foreach my $posdom (values(%Apache::lonnet::hostdom)) {
if (lc($posdom) eq lc($testdomain)) { $domain=$posdom; }
}
if (($ENV{'form.domain'}) &&	if (($ENV{'form.domain'}) &&
($Apache::lonnet::domaindescription{$ENV{'form.domain'}})) {	($Apache::lonnet::domaindescription{$ENV{'form.domain'}})) {
$domain=$ENV{'form.domain'};	$domain=$ENV{'form.domain'};