loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.57, 2004/05/07 14:25:17	version 1.59, 2004/11/02 23:20:17
Line 179 ENDFAILED	Line 179 ENDFAILED

if ($logtoken eq 'con_lost') {	if ($logtoken eq 'con_lost') {
my $spares='';	my $spares='';
foreach (keys %Apache::lonnet::hostname) {
if ($_ ne $lonhost) {	foreach my $hostid (keys(%Apache::lonnet::spareid)) {
$spares.='<br /><a href="http://'.$Apache::lonnet::hostname{$_}.	next if ($hostid eq $lonhost);
'/adm/login?domain='.$authdomain.'">'.	$spares.='<br /><font size="+1"><a href="http://'.
$Apache::lonnet::hostname{$_}.'</a>';	$Apache::lonnet::hostname{$hostid}.
if ($Apache::lonnet::spareid{$_}) {	'/adm/login?domain='.$authdomain.'">'.
$spares.=' (preferred)';	$Apache::lonnet::hostname{$hostid}.'</a>'.
}	' (preferred)</font>'.$/;
}	}
	$spares.= '<br />';
	foreach my $hostid (keys(%Apache::lonnet::hostname)) {
	next if ($hostid eq $lonhost \|\| $Apache::lonnet::spareid{$hostid});
	$spares.='<br /><a href="http://'.
	$Apache::lonnet::hostname{$hostid}.
	'/adm/login?domain='.$authdomain.'">'.
	$Apache::lonnet::hostname{$hostid}.'</a>';
}	}
$r->print(<<ENDTROUBLE);	$r->print(<<ENDTROUBLE);
<html>	<html>
Line 528 $domainlogo	Line 535 $domainlogo
</tr>	</tr>
</table>	</table>

<script>	<script type="text/javascript">
// the if prevents the script error if the browser can't handle this	// the if prevents the script error if the browser can not handle this
if ( document.client.uname ) { document.client.uname.focus(); }	if ( document.client.uname ) { document.client.uname.focus(); }
</script>	</script>