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

[raeburn]

raeburn		Mon Mar 30 21:13:24 2015 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - Arg passed to &get_server_homeID() needs to be hostname not hostID.
  - Remove Apache::lonnet:: from some calls to routines within lonnet.pm   
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1277 loncom/lonnet/perl/lonnet.pm:1.1278
--- loncom/lonnet/perl/lonnet.pm:1.1277	Sat Mar  7 23:17:21 2015
+++ loncom/lonnet/perl/lonnet.pm	Mon Mar 30 21:13:24 2015
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1277 2015/03/07 23:17:21 raeburn Exp $
+# $Id: lonnet.pm,v 1.1278 2015/03/30 21:13:24 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1179,15 +1179,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'});