[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lon-capa-cvs
Subject:    [LON-CAPA-cvs] cvs: loncom /auth lonlogin.pm
From:       raeburn via LON-CAPA-cvs <lon-capa-cvs () mail ! lon-capa ! org>
Date:       2020-10-26 1:52:15
Message-ID: cvsraeburn1603677135 () cvsserver
[Download RAW message or body]

raeburn		Mon Oct 26 01:52:15 2020 EDT

  Modified files:              
    /loncom/auth	lonlogin.pm 
  Log:
  - Prevent duplicates in list of other potential servers.
  
  
Index: loncom/auth/lonlogin.pm
diff -u loncom/auth/lonlogin.pm:1.180 loncom/auth/lonlogin.pm:1.181
--- loncom/auth/lonlogin.pm:1.180	Fri Oct 16 23:27:45 2020
+++ loncom/auth/lonlogin.pm	Mon Oct 26 01:52:15 2020
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.180 2020/10/16 23:27:45 raeburn Exp $
+# $Id: lonlogin.pm,v 1.181 2020/10/26 01:52:15 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -469,6 +469,7 @@
             next if ($hostid eq $lonhost);
             my $hostname = &Apache::lonnet::hostname($hostid);
             next if (($hostname eq '') || ($spareservers{$hostname}));
+            $spareservers{$hostname} = 1;
             my $protocol = $Apache::lonnet::protocol{$hostid};
             $protocol = 'http' if ($protocol ne 'https');
             $spares.='<br /><a href="'.$protocol.'://'.


_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]