[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

raeburn raeburn@source.lon-capa.org
Sun, 25 Jul 2010 02:58:06 -0000


raeburn		Sun Jul 25 02:58:06 2010 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - Correct subroutine name.
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1076 loncom/lonnet/perl/lonnet.pm:1.1077
--- loncom/lonnet/perl/lonnet.pm:1.1076	Sat Jul 24 17:42:51 2010
+++ loncom/lonnet/perl/lonnet.pm	Sun Jul 25 02:58:05 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1076 2010/07/24 17:42:51 raeburn Exp $
+# $Id: lonnet.pm,v 1.1077 2010/07/25 02:58:05 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -817,7 +817,7 @@
 sub choose_server {
     my ($udom) = @_;
     my %domconfhash = &Apache::loncommon::get_domainconf($udom);
-    my %servers = &servers($udom);
+    my %servers = &get_servers($udom);
     my $lowest_load = 30000;
     my ($login_host,$hostname);
     foreach my $lonhost (keys(%servers)) {