version 1.87, 2007/01/14 02:00:04
|
version 1.88, 2007/03/02 23:17:48
|
Line 138 ENDFAILED
|
Line 138 ENDFAILED
|
my $include = $r->dir_config('lonIncludes'); |
my $include = $r->dir_config('lonIncludes'); |
my $expire = $r->dir_config('lonExpire'); |
my $expire = $r->dir_config('lonExpire'); |
my $version = $r->dir_config('lonVersion'); |
my $version = $r->dir_config('lonVersion'); |
my $host_name = $Apache::lonnet::hostname{$lonhost}; |
my $host_name = &Apache::lonnet::hostname($lonhost); |
|
|
# --------------------------------------------- Default values for login fields |
# --------------------------------------------- Default values for login fields |
|
|
Line 200 ENDFAILED
|
Line 200 ENDFAILED
|
my $last; |
my $last; |
foreach my $hostid (sort |
foreach my $hostid (sort |
{ |
{ |
$Apache::lonnet::hostname{$a} cmp |
&Apache::lonnet::hostname($a) cmp |
$Apache::lonnet::hostname{$b}; |
&Apache::lonnet::hostname($b); |
} |
} |
keys(%Apache::lonnet::spareid)) { |
keys(%Apache::lonnet::spareid)) { |
next if ($hostid eq $lonhost); |
next if ($hostid eq $lonhost); |
next if ($last eq $Apache::lonnet::hostname{$hostid}); |
my $hostname = &Apache::lonnet::hostname($hostid); |
|
next if ($last eq $hostname); |
$spares.='<br /><font size="+1"><a href="http://'. |
$spares.='<br /><font size="+1"><a href="http://'. |
$Apache::lonnet::hostname{$hostid}. |
$hostname. |
'/adm/login?domain='.$authdomain.'">'. |
'/adm/login?domain='.$authdomain.'">'. |
$Apache::lonnet::hostname{$hostid}.'</a>'. |
$hostname.'</a>'. |
' (preferred)</font>'.$/; |
' (preferred)</font>'.$/; |
$last=$Apache::lonnet::hostname{$hostid}; |
$last=$hostname; |
} |
} |
$spares.= '<br />'; |
$spares.= '<br />'; |
|
my %all_hostnames = &Apache::lonnet::all_hostnames(); |
foreach my $hostid (sort |
foreach my $hostid (sort |
{ |
{ |
$Apache::lonnet::hostname{$a} cmp |
&Apache::lonnet::hostname($a) cmp |
$Apache::lonnet::hostname{$b}; |
&Apache::lonnet::hostname($b); |
} |
} |
keys(%Apache::lonnet::hostname)) { |
keys(%all_hostnames)) { |
next if ($hostid eq $lonhost || $Apache::lonnet::spareid{$hostid}); |
next if ($hostid eq $lonhost || $Apache::lonnet::spareid{$hostid}); |
next if ($last eq $Apache::lonnet::hostname{$hostid}); |
my $hostname = &Apache::lonnet::hostname($hostid); |
|
next if ($last eq $hostname); |
$spares.='<br /><a href="http://'. |
$spares.='<br /><a href="http://'. |
$Apache::lonnet::hostname{$hostid}. |
$hostname. |
'/adm/login?domain='.$authdomain.'">'. |
'/adm/login?domain='.$authdomain.'">'. |
$Apache::lonnet::hostname{$hostid}.'</a>'; |
$hostname.'</a>'; |
$last=$Apache::lonnet::hostname{$hostid}; |
$last=$hostname; |
} |
} |
$r->print(<<ENDTROUBLE); |
$r->print(<<ENDTROUBLE); |
<html> |
<html> |