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

[raeburn]

raeburn		Mon Mar 30 21:58:57 2015 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - For 2.11
    Backport 1.1278
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1172.2.60 loncom/lonnet/perl/lonnet.pm:1.1172.2.61
--- loncom/lonnet/perl/lonnet.pm:1.1172.2.60	Wed Mar 11 04:21:21 2015
+++ loncom/lonnet/perl/lonnet.pm	Mon Mar 30 21:58:56 2015
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1172.2.60 2015/03/11 04:21:21 raeburn Exp $
+# $Id: lonnet.pm,v 1.1172.2.61 2015/03/30 21:58:56 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1174,15 +1174,16 @@
     my ($udom,$uint_dom,$remotesessions,$try_server)=@_;
     my $canhost=1;
     my @intdoms;
-    my $internet_names = &Apache::lonnet::get_internet_names($try_server);
+    my $internet_names = &get_internet_names($try_server);
     if (ref($internet_names) eq 'ARRAY') {
         @intdoms = @{$internet_names};
     }
     unless (grep(/^\Q$uint_dom\E$/, at intdoms)) {
-        my $serverhomeID = &Apache::lonnet::get_server_homeID($try_server);
-        my $serverhomedom = &Apache::lonnet::host_domain($serverhomeID);
-        my %defdomdefaults = &Apache::lonnet::get_domain_defaults($serverhomedom);
-        my $remoterev = &Apache::lonnet::get_server_loncaparev(undef,$try_server);
+        my $try_server_hostname = &hostname($try_server);
+        my $serverhomeID = &get_server_homeID($try_server_hostname);
+        my $serverhomedom = &host_domain($serverhomeID);
+        my %defdomdefaults = &get_domain_defaults($serverhomedom);
+        my $remoterev = &get_server_loncaparev(undef,$try_server);
         $canhost = &can_host_session($udom,$try_server,$remoterev,
                                      $remotesessions,
                                      $defdomdefaults{'hostedsessions'});