--- loncom/lonnet/perl/lonnet.pm 2012/06/01 11:39:33 1.1177 +++ loncom/lonnet/perl/lonnet.pm 2012/07/05 19:27:27 1.1179 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1177 2012/06/01 11:39:33 raeburn Exp $ +# $Id: lonnet.pm,v 1.1179 2012/07/05 19:27:27 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1419,7 +1419,7 @@ sub get_loadbalancer_targets { } } } else { - my %servers = &dom_servers($udom); + my %servers = &internet_dom_servers($udom); my ($remotebalancer,$remotetargets) = &get_lonbalancer_config(\%servers); if (&hostname($remotebalancer) ne '') { $offloadto = [$remotebalancer]; @@ -9960,7 +9960,11 @@ sub deversion { sub symbread { my ($thisfn,$donotrecurse)=@_; my $cache_str='request.symbread.cached.'.$thisfn; - if (defined($env{$cache_str})) { return $env{$cache_str}; } + if (defined($env{$cache_str})) { + if (($thisfn) || ($env{$cache_str} ne '')) { + return $env{$cache_str}; + } + } # no filename provided? try from environment unless ($thisfn) { if ($env{'request.symb'}) {