[LON-CAPA-cvs] cvs: loncom /auth lonauth.pm

[raeburn]

raeburn		Wed Aug 17 03:52:36 2011 EDT

  Modified files:              
    /loncom/auth	lonauth.pm 
  Log:
   - &lonnet::choose_server() returns an array.
  
  
Index: loncom/auth/lonauth.pm
diff -u loncom/auth/lonauth.pm:1.117 loncom/auth/lonauth.pm:1.118
--- loncom/auth/lonauth.pm:1.117	Tue Aug  9 01:35:31 2011
+++ loncom/auth/lonauth.pm	Wed Aug 17 03:52:36 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.117 2011/08/09 01:35:31 raeburn Exp $
+# $Id: lonauth.pm,v 1.118 2011/08/17 03:52:36 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -432,7 +432,7 @@
         return OK;
     } else {
         if (!&check_can_host($r,\%form,$authhost)) {
-            my $otherserver = &Apache::lonnet::choose_server($form{'udom'});
+            my ($otherserver) = &Apache::lonnet::choose_server($form{'udom'});
             if ($otherserver) {
                 &success($r,$form{'uname'},$form{'udom'},$authhost,'noredirect',undef,
                          \%form);
@@ -460,7 +460,7 @@
         if ((($userloadpercent>100.0)||($loadpercent>100.0))) {
             my $unloaded=Apache::lonnet::spareserver($loadpercent,$userloadpercent,1,$form{'udom'});
             if (!$unloaded) {
-                $unloaded = &Apache::lonnet::choose_server($form{'udom'});
+                ($unloaded) = &Apache::lonnet::choose_server($form{'udom'});
             }
             if ($unloaded) {
                 &success($r,$form{'uname'},$form{'udom'},$authhost,'noredirect',