[BACK]Return to lonlogin.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonlogin.pm between versions 1.57 and 1.58

version 1.57, 2004/05/07 14:25:17 version 1.58, 2004/08/10 18:55:13
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>
Removed from v.1.57  
changed lines
  Added in v.1.58

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>