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

[raeburn]

raeburn		Fri Jun 10 01:30:33 2011 EDT

  Modified files:              (Branch: version_2_10_X)
    /loncom/auth	lonauth.pm 
  Log:
  - Backport 1.113.
  
  
Index: loncom/auth/lonauth.pm
diff -u loncom/auth/lonauth.pm:1.101.8.5 loncom/auth/lonauth.pm:1.101.8.6
--- loncom/auth/lonauth.pm:1.101.8.5	Fri Sep 24 00:01:44 2010
+++ loncom/auth/lonauth.pm	Fri Jun 10 01:30:33 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.101.8.5 2010/09/24 00:01:44 raeburn Exp $
+# $Id: lonauth.pm,v 1.101.8.6 2011/06/10 01:30:33 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -424,7 +424,7 @@
     if ($r->dir_config("lonBalancer") eq 'yes') {
 	&success($r,$form{'uname'},$form{'udom'},$authhost,'noredirect',undef,
 		 \%form);
-        my ($otherserver) = &Apache::lonnet::choose_server($form{'udom'});
+        my $otherserver = &Apache::lonnet::spareserver(30000,undef,1,$form{'udom'});
 	$r->internal_redirect('/adm/switchserver?otherserver='.$otherserver.'&origurl='.$firsturl);
         return OK;
     } else {