[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /auth lonauth.pm
From: raeburn <raeburn () source ! lon-capa ! org>
Date: 2011-08-17 3:52:36
Message-ID: cvsraeburn1313553156 () cvsserver
[Download RAW message or body]
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',
_______________________________________________
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]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic