[LON-CAPA-cvs] cvs: nsdl /nsdlloncapaorg lonlogin.pm

www lon-capa-cvs@mail.lon-capa.org
Fri, 29 Aug 2003 14:10:40 -0000


www		Fri Aug 29 10:10:40 2003 EDT

  Modified files:              
    /nsdl/nsdlloncapaorg	lonlogin.pm 
  Log:
  Backport of original 1.46->1.47 into NSDL version
  
  
Index: nsdl/nsdlloncapaorg/lonlogin.pm
diff -u nsdl/nsdlloncapaorg/lonlogin.pm:1.2 nsdl/nsdlloncapaorg/lonlogin.pm:1.3
--- nsdl/nsdlloncapaorg/lonlogin.pm:1.2	Mon Jul 28 16:30:21 2003
+++ nsdl/nsdlloncapaorg/lonlogin.pm	Fri Aug 29 10:10:40 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.2 2003/07/28 20:30:21 www Exp $
+# $Id: lonlogin.pm,v 1.3 2003/08/29 14:10:40 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -104,7 +104,8 @@
 # ---------------------------------------- Are we access server and overloaded?
     if (($role eq 'access') &&
 	(($userloadpercent>100.0)||($loadpercent>100.0))) {
-        $otherserver=Apache::lonnet::spareserver($loadpercent,$userloadpercent);
+        my $unloaded=Apache::lonnet::spareserver($loadpercent,$userloadpercent);
+	if ($unloaded) { $otherserver=$unloaded; }
     }
 
 # -------------------------------------------------------- Set login parameters