--- loncom/lonnet/perl/lonnet.pm	2015/03/07 23:17:21	1.1277
+++ loncom/lonnet/perl/lonnet.pm	2015/03/30 21:13:24	1.1278
@@ -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 @@ sub spare_can_host {
     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$/,@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'});